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PREFACE 



You are a tourist in a strange city. You would like to see the 
sights but you don't know where they are. You don't even know 
what they are. What do you do? You could look at a street map 
but it would have too much detail. You could pick a direction 
and go, hoping to run into something interesting. You could ask 
people on the street. What you probably would do though is 
buy a guide book. In it you would find just the kind of 
information you need to start learning about an unfamiliar city: 
simplified maps, descriptions of sections of the city, lists of tourist 
attractions, and so on. 

Learning a new programming language is not unlike being lost 
in a strange city. Language manuals, including the LOOPS 
Reference Manual, are not meant to be used by beginners; they 
are intended for programmers already familiar with the 
language. Therefore, the information in reference manuals is 
not organized in a way that makes a programming language 
easy to learn. 

This primer is the equivalent of a tourist's guide book. It shows 
you the "sights" but it leaves out a lot of detail. Once you are 
comfortable with the basic LOOPS programming concepts and 
procedures described here, you can use the LOOPS Reference 
Manual as it was intended and fully exploit the capabilities of 
LOOPS. 

This primer was written with the beginner's viewpoint in mind, 
it addresses strategic considerations, introduces basic procedures 
and methods, and provides numerous examples and pictures. 
The material in each chapter is presented with step-by-step 
instructions. 

While this primer does not assume you have any previous 
programming experience in LOOPS, it does assume you have a 
Xerox 1 108/9 or a Xerox 1 186 Al Workstation which is running 
the Cantilever version of LOOPS, and that you have experience 
with interlisp-D and its programming environment. If you are 
not familiar with Interlisp-D, its recommended that you start by 
working your way through Interlisp-D: A Friendly Primer. In 
particular, you should know how to use DEdit and how to 
interact with menus. If you have specific questions about 
Interlisp-D, look in the Interlisp-D Reference Manual. 

Before you sit down at the computer with this primer, glance 
over the Table of Contents, read the first two chapters, and read 
the introductory statements at the top of the first page in each 
of the other chapters. Doing this familiarizes you with the task 
that lies ahead. Then, as you read this primer, actually enter the 
examples in each chapter. The chapters in the primer are meant 
to be worked through in order. 
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Chapters 1 and 2 provide an introduction to LOOPS. Chapter 1 
introduces the concept of object-oriented programming in 
LOOPS. Chapter 2 is a glossary which provides an initial overview 
of LOOPS concepts. The glossary is also a useful reference. 

Chapters 3, 4 and 5 introduce the basic information necessary for 
programming in LOOPS. Chapter 3 shows how to create the 
objects that form the basis of LOOPS programs. Chapter 4 shows 
how to make those objects interact with each other. Chapter 5 
shows how to save LOOPS programs on files. 

In Chapter 6, a LOOPS program is developed step-by-step using 
the concepts covered in previous chapters. After working 
through this example, you will be able to develop simple LOOPS 
programs. 

Chapter 7 introduces some fundamental design strategies for 
organizing LOOPS programs. 

The remaining chapters present more advanced topics. The 
material in these chapters enables you exploit the real power of 
the LOOPS language. Chapter 8 shows how to use specialization 
to add functionality to objects. Chapters 9 and 10 introduce 
other useful LOOPS tools -- active values and gauges. Chapter 1 1 
covers more sophisticated uses of specialization to create LOOPS 
objects. 

Chapter 12 demonstrates how to customize browsers. Browsers 
are graphical editing tools provided by LOOPS, and available for 
customization in your own programs. The example in this 
chapter also demonstrates further programming techniques. 

Chapter 13 shows how to use Masterscope with LOOPS 
programs. Masterscope is an Interlisp-D utility for analyzing 
programs. 
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1. INTRODUCTION -WHAT IS 

LOOPS? 



Artificial intelligence (Al) programs must accomplish a widely 
varying set of tasks. For this reason, LOOPS integrates several 
programming styles, or paradigms, so that each part of a 
program can be written in a way that is best suited to the 
particular task it is supposed to accomplish. 

The problem that an Al program is supposed to solve is often 
poorly understood at the start of a project. The very act of 
attempting to write the program leads to greater understanding 
and, most likely, to a redesign of the program. LOOPS facilitates 
this kind of exploratory programming by making it easy to 
construct and modify program elements and alter the way they 
interact. 

The basic programming styles that LOOPS provides are described 
below: 

Procedure-oriented Programming This is the style that most widely known languages provide (eg., 

FORTRAN, Pascal). A procedure-oriented program consists of a 
set of procedures (functions, subroutines, main blocks, etc.). 
These procedures act upon a set of data which is (at least 
conceptually) separate from them. Interlisp-D is a procedural 
language and LOOPS is fully integrated into Interlisp-D Any part 
of a program that can most profitably be written in a procedural 
style can be written in pure Lisp. No special steps need to be 
taken to access or to interface with Interlisp-D. 

Object-oriented Programming In this form of programming, there is an integration between 

functions and data. Each program element, each object, is a 
package containing some some functions, which are called 
methods, and some data, which are the values of its variables. In 
effect, each object is a specialized processor with its own private 
memory. The action in an object-oriented program is initiated 
by message passing. Objects send messages to other objects. 
Each message causes the receiving object to invoke the 
appropriate method to perform some operation, which often 
includes sending messages to other objects. Any programming 
problem whose solution can be viewed as a collection of similar 
objects that function by passing commands and results to each 
other is a good candidate for object-oriented programming. 

Access-oriented Programming In this paradigm, arbitrary actions are performed whenever a 

value is accessed. Access-oriented programming is very useful 
when certain values must be monitored or protected in some 
way. In a simulation, for example, the variation of the values of 
rertain variables over time is the output of the program. These 
simulation variables tend to be accessed from many different 
places in a program making it difficult to ensure that changes are 
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noticed, or even appropriate. In access-oriented programming 
the vaiue cannot be accessed without triggering an action 
because the trigger,, which is called an active value, effectively 
surrounds the value. 

inheritance inheritance is an integral part of object-oriented programming. 

Inheritance simplifies the construction and modification of 
LOOPS programs. It is not necessary to construct each LOOPS 
object from scratch. A new object can be constructed by using an 
existing object as an example. Only those pai *s of the new object 
that are different from the existing object need to be specified. 
Whatever is the same can be inherited. 

An example of inheritance is shown in Figure 1.1. The overall 
network of inheritance is called the class lattice. Classes are 
objects that describe collections of things. The solid boxes in the 
figure are classes. Particular members of a class are called 
instances, and they are created by using a class as a template. 
The dashed-line boxes in the figure are instances. 



Object 



Mi neral 



An imal 



Vegetab 1 e 
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l " 1 
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Figure 1.1. Figure illustrating LOOPS inheritance 

The classes from which a class inherits are referred to as its supers 
(short for super classes). OBJECT is the most generic object and 
does not have any supers. Continuing with Figure 1.1, OBJECT is 
a super of MINERAL, ANIMAL and VEGETABLE; ANIMAL is a 
super of PERSON; and PERSON is a super of MAN and WOMAN. 
Every class automatically contains (inherits) all of the variables 
and methods of its supers, unless the new class is created with 
variables or methods with the same name as its supers. In that 
case, the local variables and methods override the ones that 
would have been inherited. 

The notion of inheritance makes it very natural to think of an 
object's supers as being above it and this is the way Figure 1 . 1 is 
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drawn. However, as you will see, the LOOPS interface draws the 
class lattice horizontally with inheritance from left to right. 

The classes below a class in the lattice are called its subclasses or 
specializations. In Figure 1.1, MINERAL, ANIMAL, and 
VEGETABLE are specializations of OBJECT; PERSON is a 
specialization of ANIMAL; and MAN and WOMAN are 
specializations of PERSON. 

An instance of a class represents one specific thing. Instances are 
the objects that actually perform the work in a LOOPS program. 
All instances of a class have the same methods and variables as 
defined by their class. In Figure 1.1, AARDVARK is an instance of 
the class ANIMAL and BILLY and JEFF are instances of the class 
MAN 

Using an object-oriented language often feels unfamiliar at first. 
With a little experience, however, it becomes natural to think 
about problems in terms of communicating objects with shared 
behavior. Once you have mastered LOOPS, you will have at your 
disposal a versatile collection of modern programming tools, and 
you will be ready to attack complex and difficult problems. 
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This Glossary covers basic programming elements and concepts 
that you will encounter in LOOPS. Examples for the terms are 
given in Figure 1.1, Page 1.2, and Figure 2.5. 

Just skim this glossary when you first read through the primer. 
As you encounter new terminology in the chapters to follow, you 
wiii find this a handy reference section. 

Because LOOPS concepts are interrelated, sometimes a concept is 
used before it has been well explained and illustrated. This 
glossary should help you get over the rough spots. 

access-oriented programming A programming paradigm in which fetching or storing data 

activates computations. 

active value The mechanism that implements access-oriented programming 
for variables in LOOPS. Active values can be thought of as probes 
placed on the variables of a LOOPS program. These probes can 
activate additional computations when data are fetched or 
stored. 

background menu The menu that is displayed when you click the right button and 
hold it while the mouse cursor is in the gray background area of 
the screen. A standard background menu is shown below. 



browser 



browser editing menu 



Idle 

SaveVM 
Snap 

Hardcopy 
PSW 
TEdit 
TEXEC 



Figure 2.1. Example background menu 

A display that allows the user to examine, manipulate, and shift 
attention in a data structure. LOOPS provides browsers for the 
class lattice and for instances. An example of one of the 
browsers for the class lattice, a ClassBrowser, is shown in Figure 
2.5. 

A menu accessed by pressing the middle mouse button on a class 
in a LOOPS class browser. The items in this menu allow you to 
create and edit classes and methods. (See Figure 2. NIL.) 
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Box Node 
Methods (EditMethod) P 
Add (AddMethod) > 
Delete (DeleteMethod) P 
Move (Move Method To) ^ 
C o p v (C o p y M eth o d To ) P 
R e n am e (R e n am e M eth o d 
Edit(EditClass) > 

Figure 2.2. Browser Editing Menu 

browser information menu A menu accessed by pressing the left mouse button on a class in a 

LOOPS class browser. The items in this menu give information 
about the class lattice. (See Figure 2. NIL.) 

Prints ummary P 
Doc (CI as 5 Doc) P 
W h e re 1 3 ( W h e re I s M eth o d }? 
D e i ete F ro m B ro ws e r 
Sub Browser 
TypelnName 

Figure 2.3. Browser Information Menu 

browser manipulation menu A menu accessed by pressing the left or middle mouse button in 

the title bar of a LOOPS class browser. The items in this menu 
allow you to make changes to the class lattice shown in the 
browser. (See Figure 2. NIL.) 

Recompute P 
Add Root ¥ 
Add Category Menu 

Figure 2.4. Browser Manipulation Menu 

A description of one or more similar objects. Classes provide a 
template for the objects they specify. Classes specify variables, 
values, and methods. In Figure 1.1, Page 1.2, OBJECT, MINERAL, 
ANIMAL, VEGETABLE, PERSON, MAN and WOMAN are all classes 

The means by which a class inherits variables, values, and 
methods from its super class. Class inheritance allows you to 
define a class as a specialization of another class. The newly 
defined class is called a "subclass" or a "specialization". The 
previously defined class is called a "super". A specialized class 
inherits much of its structure from a super. Class inheritance 
supports program modularity and facilitates the design process. 

The network of inheritance relations among classes. Usually class 
lattices in LOOPS are displayed left to right; that is, supers are to 
the left of their subclasses. Figure 2.5 shows the contents of 
Figure 1.1 as it would appear in a browser. 
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Figure 2.5. Standard LOOPS class lattice 
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class variable 



inspector 



instance 



The variables that store information shared by all instances of a 
class. For instance, in Figure 2.5, PERSON might have the class 
variables LEGS, with the value 2, and EYES, also with the value 2. 

An interactive display program for examining and changing the 
parts of a data structure. 

An actual data object with its structure defined by a particular 
class. For example in Figure 1.1 BILLY is an instance of MAN. 
Note that instances do not give rise to further specializations 
within the lattice structure. Instances within a class share the 
same methods, class variables, and class variable values. All 
instances of a ciass have the same instance variables, but the 
values of these instance values may differ. These differing values 
will cause each instance to respond differently than its siblings, 
even though the instances are from the same class. 

In Figure 1.1, BILLY and JEFF are instances of the class MAN, and 
AARDVARK is an instance of the class ANIMAL. BILLY inherits all 
variables and methods from MAN, as well as ail variables and 
methods from PERSON, ANIMAL and OBJECT. However, BILLY 
and JEFF may have different values for their instance variables. 

A variable used to store information specific to an instance and, 
therefore, a "local variable" for that instance. Instance variables 
are defined in classes. When you specify an instance variable in a 
class, you assign to it a default value. This value is inherited as 
the default value down through the class lattice structure. For 
example, in Figure 2.5, the class, PERSON, might have the 
instance variable, HATSIZE, with default value 7. The class MAN 
would inherit this instance variable with the default value 7 and 
pass it on to BILLY. Each instance has its own copy of the 
instance variables, and the instance variable values can be 
changed independent of the values for other instances of the 
same class. So, for example, the instance BILLY can have 7.25 as 
the vaiue of {HATSiZE} whiie the instance of JEFF has a 
HATSIZE of 7 75. 

Interlisp-D executive window The window in which lnterlisp-0 functions are entered. 



Interlisp-D Executive Window 



instance variable 




join 



lattice 



Figure 2.6. Top Level Interlisp-D executive window 

Left buttoning inside the Top Level lnterlisp-0 Executive Window 
causes the type-in cursor to appear in the window. 

A class with multiple specialization branches. See "left to right, 
up to joins " 

A directed graph without cycles. In LOOPS, the inheritance 
network is arranged in a lattice. While a tree allows each node 
to have only one parent, a lattice allows multiple parents (in 
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left buttoning 
'left to right, up to joins" 



Masterscope 



menu 



message 



method 



middle buttoning 



mixin 



mouse 



mouse cursor 



object 



object-oriented programming 



procedure-oriented programming 



LOOPS, multiple supers). A lattice does not allow a class ro have 
itself as a super class or ancestor class. 

Pressing the left mouse button and then releasing it. 

The rule for inheritance in a lattice of objects. Each branch up 
the class lattice is searched, starting with the leftmost branch and 
working right. A class with several specialization branches is not 
searched until all the specialization branches have been 
searched. A class with multiple specialization branches is 
referred to as a join. 

A program analysis tool. When told to analyze a program, 
Masterscope creates a data base of information about the 
program. In particular, Masterscope knows which functions call 
other functions and which functions use which variables. 
Masterscope can then answer questions about the program and 
display the information with a browser. 

A way of graphically presenting a set of options. There are two 
kinds of menus: pop up menus are created when needed and 
disappear after an item has been selected; permanent menus 
remain on the screen after use. 

A command to an object to do something. A message activates a 
method defined in an object's class. For example, if BILLY has a 
method, BRAG, you can send a BRAG message to BILLY and have 
BILLY execute the code associated with the BRAG method. 

The code stored in objects. Each method performs the actions 
needed to implement a particular message. A subclass inherits 
its super's methods. 

Pressing the middle mouse button and then releasing it. If your 
mouse does not have a middle button then press both the left 
and right mouse buttons together. 

A class used to add some particular functionality to many other 
kinds of classes. Usually a mixin is a second super for a class. 
Mixins rarely have their own instances. 

The little rectangular box connected to the computer. There are 
two or three buttons located on the top of the mouse. The 
buttons are referred to as the left, middle and right mouse 
buttons. Pressing the left and right button at the same time will 
simulate the middle button if your mouse does not have one. 

The small arrow on the screen that points to the northwest 



Figure 2.7. The mouse cursor 

The mouse cursor moves as you move the mouse. 

The main structures in object-oriented programming. They 
combine aspects of procedures - for computation, and data, 
to describe their state. Classes and instances are both objects. 

A programming paradigm in which structures are designed that 
contain both data and the methods for manipulating that data. 

A programming paradigm in which programs are composed of 
functions and procedures. Data structures are separate objects 
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that get passed to functions and procedures. This is the best 
known programming paradigm and is supported in standard 
programming languages like FORTRAN and Pascal. 

prompt window The skinny black window at the top of the screen. 



Prompt Window 



right buttoning 
self 



specialization 



super 



TEdit menu 



window manipulation menu 



Figure 2.8. Prom pt window 

Pressing the right mouse button and then releasing it 

A method argument that represents the receiver of the message. 
All methods contain the argument self. Self is automatically 
bound to the object which received the message that invoked 
the method. Methods use self in order to access the variables 
and other methods of the object defining the method. 

The process of creating a subclass from a class; or, the result of 
that process. In Figure 1.1, MINERAL, ANIMAL, and VEGETABLE 
are specializations of OBJECT; PERSON is a specialization of 
ANIMAL; and MAN and WOMAN are specializations of PERSON. 

A class from which a given class inherits. In Figure 2.5, OBJECT is 
the super of MINERAL, ANIMAL, and VEGETABLE; ANIMAL is the 
super of PERSON and AARDVARK; PERSON is the super of MAN 
and WOMAN 

Refers to the menu that is displayed when you middle hold 
button while pointing the mouse cursor at the title bar of a TEdit 
window. 



Put 
Get 
Include 
Find 
Looks 
Substitute 
Quit 

Expanded Menu; 



Mode 



Library \ 
Find Definition 
Compile 
Consult 



Figure 2.9. Example TEdit menu 

A menu accessed by pressing the right mouse button in the title 
bar of a LOOPS browser. The items in this menu manipulate the 
window containing the browser. Figure 2. Nil shows the 
standard Window Manipulation Menu. 
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Close 
Destroy 




Snap 

Paint 

Clear 

Bury 
Repaint 
Hardcopy^ 

Move 
Shape 
Shrink 





Figure 2.10. Window Manipulation Menu 
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This chapter introduces the steps for building a simple class 
lattice. You define classes by inserting documentation, class 
variables, default class variable values, instance variables and 
default instance variable values. You define subclasses and 
create instances of a class. 

After you have become famiiiar with how classes inherit 
information from their supers, you learn how to manipulate this 
inheritance structure. 

The easiest way to develop LOOPS programs is by using a 
browser. The browser displays the class lattice and provides 
menus of commands for building and manipulating this 
structure. 



3.1 Creating a Class 

Begin by getting LOOPS running on your Xerox Al workstation. 
LOOPS is generally installed in the form of a sysout because 
loading the individual files is very time-consuming. Xerox 
provides a sysout in the LOOPS software kit. If your machine is 
on a network, you should consult your local system administrator 
to find out where LOOPS is stored. If you have a stand-alone 
machine, you should have LOOPS on a series of floppy disks. A 
LOOPS sysout is installed using the same process used to install an 
Interlisp-D sysout. If you do not know how to do this, please 
refer to Interlisp-D: A Friendly Primer or the User's Guide that 
came with your machine. 

Once you have a LOOPS sysout running, you should see the 
LOOPS icon, Figure 3.2. If you do not see this icon, you must 
bring it up by using the background menu. To bring up the 
background menu, hold the right mouse button while the cursor 
is in the grey background area of your screen. Select the phrase 
Loops Icon off the menu that pops up and release the mouse 
button. If you like, you can move the icon to a different location 
by selecting the Move option from the icon's right-button menu. 

Before beginning to use the browser, you need to create a root 
for the class lattice structure. For our example, the root is the 
class Animal. Create this root by typing. 

(OefineClass 'Animal) 
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1Q*- ( De f i neC 1 ass ' An i ma 1 ) 

#.($ Animal) 

11* 



Figure 3.1 . Creating the Root Class 

As in Interlisp-D, LOOPS distinguishes upper and lower case 
letters. Thus, you should be sure to type things exactly as you see 
them. Also, you should notice that Animal is quoted so that it is 
not evaluated. Oef i neCl ass returns a pointer to the class it has 
just created. Such pointers are printed by the system as #. ($ 
ClassNarae), as you can see in Figure 3.1 

In order to begin working in a class browser, position the mouse 
cursor on the LOOPS icon, press the left mouse button, and select 
Browse CI ass as shown in Figure 3.2. 
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Figure 3.2. Accessing LOOPS Browser 

When you see the prompt in the prompt window, type in the 
root object you wish to browse. In this case you should type 
Animal. A ghost image of a browser window appears near the 
cursor on the screen. You may position the window by moving 
the mouse cursor and pressing the left mouse button when the 
window is in the correct place. The result should be a browser 
window as shown in Figure 3.3. 



Glass browser 



Animal 



Figure 3.3. 8rowser for the class An i ma 1 



3.2 Editing a Class 

After creating a class, you need to add the following to it: 

• documentation 

• class variables 

• instance variables 

• methods 
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In this chapter, you learn how to add the first three. You learn 
about methods in Section 4.2. 



3.2.1 Using the Browser Editing Menu 

Each item in a class browser has two menus associated with it. 
One, presented later, contains informational commands. The 
other one, presented now, allows you to make alterations to 
classes and the class hierarchy. To access this menu, move the 
cursor over Animal and click the middle mouse button. The 
menu appears and remains visible when you release the button 
(see Figure 3.4). The first word of each item in the menu 
indicates the types of operations that are contained in its 
submenu. The part in parentheses indicates the command that 
results from selecting the main menu item. The submenu is 
accessed by pressing the left mouse button and sliding the cursor 
to the right over the grey arrow while continuing to hold the 
button down. Items are selected from the submenu by moving 
the mouse cursor until the desired item is hi-lighted and 
releasing the mouse button. 

Box Node 
Methods fEditMethod) P 
Add (AddMethod) P 
Delete (DeleteMethod) P 
M o v e (M o v e M e t h o d To ) P- 
Copy (Copy Method To) P 
R e n am e (R e n am e M eth o d )P 
Edit ■jEditClass) > 

Figure 3.4. Browser Editing Menu 

Class definitions are edited with DEdit the same way that 
functions and other entities are edited in Interlisp-O. To call 
DEdit, select Edi t(EditClass). A DEdit window opens with 
the skeleton class definition as shown below in Figure 3.5. 
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Figure 3.5. Editing of the class An i ma 1 

Our figures do not show the DEdit command menu. If this menu 
does not appear to the right of the DEdit window, move the 
cursor into the window and click the left button. 



To preview the complete Animal class definition, iook at Figure 
3.7. 
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3.2.2 Documenting the Class 

Effective documentation is just as important in LOOPS as in any 
other programming language. Both the class itself and the items 
within it can be documented. Each item of documentation 
consists of the symbol doc followed by a standard Interlisp-D 
comment, 

(Note: doc is a property name, and your documentation is the 
value of the doc property.) 

To document Animal, add the following: 

doc (* definition of root object. Animal) 

in between Class and Edited. You can save yourself a couple 
of keystrokes by enclosing doc and the comment in a list, 
inserting the list and then removing the parentheses. If you are 
unsure of how to do this operation, you should refer to 
Interlisp-D: A Friendly Primer and practice using DEdit before 
you continue. You will be making extensive use of DEdit 
throughout this primer. The edit session should now look like 



Figure 3.6. 
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Figure 3.6. Adding documentation to Animal 



3.2.3 Inserting Class Variables, Values, and Properties 

Now you can put in the class variables. They are inserted in the 
ClassVariables list. Each class variable is specified by giving 
its name, its default value, and its property names and their 
values. Doc should be the last property name: 

(VariableName Value Property 1 Valuel Property 2 Value! ... 
doc (* comment)) 

In our example, we use the class variables HasEyes and 
IsLiving. Both of these variables should have the default 
value T in the class, Animal. You should add the following after 
ClassVariables: 

(HasEyes T doc (* all animals have eyes)) 
(IsLiving T doc (* all animals are living)) 



3,2,4 Inserting Instance Variables, Values, and Properties 

Now put in the instance variables. Instance variables have the 
same format as class variables and are inserted in the 
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InstanceVariables list. For our example, we use the instance 
variables DateOf Bi rth and HeartRate Because the values of 
these variables are known only if we know which individual 
animal, that is, which instance, is referred to, we use the default 
value of 0 for both. Add the following after 
InstanceVariables: 

(DateOfBi rth 0 doc (* animals do not all have 
the sane birthday)) 

(HeartRate 0 doc (* different animals have 
different heartrates)) 

When you are finished, your edit session should look like Figure 
3.7. 
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Figure 3.7. Editing in variables for An i ma 1 

lai i. ulu 1 ^ as yuu 1 iui many Wuuiu uy cv. u i ty 1 1 vji 1 1 u iC 

edit command menu. If there is an error in syntax, such as 
omitting a doc before a comment, DEdit gives you some 
information in the prompt window. DEdit allows you to exit 
only after you have corrected all syntax errors. 



3.2.5 Using the Browser Information Menu __ 

In Section 3.2. 1 the middle mouse menu is used to change a class 
definition. The left mouse menu contains informational 
commands. Bring up this menu by moving the cursor to Animal 
and clicking the left mouse button. As before, the menu appears 
and remains after you release the button. (See Figure 3.8.) 

P ri ntS u rn rn ary P 
Doc (CI as s Doc) P 
W h e r e 1 3 ( W h e r e I s M eth o d ) '? 
D e I ete F ro rn B ro ws e r 
SubBrowser 
Type In Name 



Figure 3.8. Information Menu 
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Selecting PrintSummary causes a summary of Animal to be 
printed in another window, as shown in Figure 3 9. 
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Figure 3.9. Summary of the class All i da 1 

PrintSummary gives a high level summary of a class definition. 
The easiest way to see the structure in detail -- including values, 
property names and property values - is by calling the editor. 
Now try bringing up the information menu again and selecting 
Ooc(ClassOoc). Any documentation you added is printed out. 



3.3 Creating Subclasses 

To continue developing our example, we specialize Animal to 
create a subclass, Person. We then add two subclasses, Man and 
Woman to Person. 

To create the first subclass, bring up the editing menu and select 
Special izeCl ass from the submenu of Add( AddMethod). 
Then, type Pe rson when you are prompted for the new subclass 
of Animal in the prompt window. The browser is automatically 
updated and looks like Figure 3.10. 



Class browser 



Animal Person 



Figure 3.10. Browser automatically updated to 'nclude Pe TSOn 

In order to define Person, repeat the same steps you followed 
for Animal. If you are unsure of the procedure, refer back to 
Section 3.2. When entering DEdi t, notice that. Person ' s super 
was automatically set to Animal. 

Add the following class variables and values: 

• Legs 2 

• Mammal T 
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and the following instance variables and values: 
Hatsize 7 
HairColor Brown 

Note that 2, T, 7, and Brown are merely default vaiues. Ciass 
variables can be changed by the actions of any instance. 
Similarly, instance variables can be set to appropriate values in 
each instance. Remember to add documentation to the class and 
its variables. When you are finished, your edit session should 
look like Figure 3.1 1 below. 
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Figure 3.11. Editing in variables for Pe TSOfl 

Now bring up the browser information menu for Person and 
select PrintSuramary. You should notice a difference from the 
last time you printed a summary as in Figure 3.12. 
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Figure 3.12. All variables and values for Pe TSOn 

Items which are defined in Pe rson are printed in boldface while 
the items which are inherited from Animal are printed in a 
regular font. 

Now create two specializations of Person: Man and Woman. 
When done, your class browser should look like Figure 3. 1 3. 
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— Man 

Animal Person ==H__ 

~~- Woman 

Figure 3.13- Browser with the classes Man and Woman added 

Since all men are referred to by the pronoun, "he", give Man the 
class variable Pronoun with the value He. 

Because individual men may or may not have beards and big 
muscles, the instance variables are Muscles and Beard, with 
the default values Big and T respectively. 



3.4 Creating Instances 



To create an instance of man, which we call Bi 1 ly, type (at the 
top level): 

(<- ($ Man) New 'Billy) 
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17* f* ($ Man) New ' Billv) 
[DEFINST Mar. (Billy ( 
JQW0.0X:.P%]7.Gc9 . 13)) 

] 



.3* 



Figure3.14. Creating an instance 

Note that a pointer to the instance is returned just as when a 
class is created. What you see on your screen is somewhat 
different from Figure 3.14 because LOOPS creates a unique 
identifier for each instance. This identifier is the "JQWO.. ." 
gibberish after Billy. Unique identifiers ensure that different 
instances are not inadvertently confused with one another. 

The ($ name) notation is the way to reference classes and 
instances. Essentially, the $ informs the system to use the LOOPS 
object with the specified name. The «- means send a message. 
New is a message which tells the class Man to create an instance 
named Billy. (Sending messages is discussed in Section 4.2.) 
Create a second instance of Man, with the name Jeff, by typing: 

(<- ($ Man) New 'Jeff) 

Instances do not appear in the class browser window as part of 
the class lattice. However, the LOOPS inspector does allow the 
display of instances. The LOOPS inspector is a specialized version 
of the Interlisp-D Inspector. (See the Interlisp-D Reference 
Manual or Interlisp-D: A Friendly Primer for more information on 
the standard inspector.) 
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3.4.1 Inspecting an Instance 

Type: 

(INSPECT ($ Billy)) 

to get an inspector window for the instance Billy. This 
inspector window is shown in Figure 3. 1 5. 



All values of Man ($ Billy), 
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Hat-size 
HairColor 
Muse 1 es 
Beard 

Figure 3.15. Inspecting B i 1 1 y, an instance of Man 

The inspector shows the structure of an instance. It also provides 
an easy way to alter the values of instance variables. Notice that 
the title bar says All Values and that the inherited instance values 
from An inal. Person and Man are present. 



Create an inspector window for the instance Jeff in the same 
way. The result is an inspector window as shown in Figure 3. 1 6. 
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Figure 3.16. Inspecting Jeff, an instance of Man 



3.4.2 Changing Instance Variable Values With the Instance Inspector 

You can use the inspector to change instance variable values. 
Begin by pressing the middle mouse button in the title bar of the 
inspector window for Bi 1 ly and holding it down. The inspector 
menu is displayed as shown in Figure 3.17. 

Class 
A II Value s 
Local Values 
Add, -'Delete 
IV 3 

Save Value 
Refetch 
Edit 

Figure 3.17. Inspector menu 

Choose Local Values by moving the mouse cursor over it and 
releasing the mouse button. The displayed values are changed 
as shown below in Figure 3.18. 
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Local Values of Man <$ Billy), - - 
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Figure 3.18. Local values of the instance Billy 

The #. NotSetValue indicates that you have not set any local 
values in the instance; all of these values are defaults inherited 
from the super classes. 



To illustrate the inspector changing values, we will alter 
Billy's HairColor to Blond. Begin by selecting the item to be 
changed by clicking the left mouse button over HairColor. Next 
bring up a command menu by holding down the middle mouse 
button (with the cursor inside the inspector window) and select 
PutValue from that menu. Type 'Blond in the prompt 
window. This new value will be displayed. It is necessary to 
quote Blond because values which are entered with the 
Inspector are evaluated. 



Now choose Al lvalues from the Inspector menu and notice 
that the default values are redisplayed. However, HairColor is 
now the local value, Bl ond, as shown in Figure 3. 19. 
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Figure 3.19. Inspector window of the instance Billy showing all values 



3.5 Altering the Structure or the Class Lattice 

It is possible to alter an existing class lattice by using the editing 
menu of the class browser. Classes can be moved in the hierarchy 
or removed completely. In order to make the browser look 
simpler, a class can also be removed from a browser without 
actually removing it from the lattice. 



3.5.1 Moving a Class 

To move a class in the class lattice you must change its super. As 
an example, you will move Man so that it is directly below 
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Animal in the lattice. The first step is to select the new super by 
"boxing" it. To do this, select Boxfiode from the editing menu 
(middle button) on Animal Then bring up the editing menu on 
the object to be moved, in this case Man. Select MoveSuperTo 

frQm the ciihmenii Qf Mnvo I MnuoMo t hnrlTn ^ A nr»n 1 1 n moon 
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appears which shows the current super, in this case, Pe rson. To 
confirm the move, select this item by clicking the left button. 
After doing this, your browser should look Figure 3.20. 
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Figure 3.20. Mew lattice with Man ' S super changed to An i ma 1 

Since we don't really want the lattice to look like Figure 3.20, 
change Man ' s super back to Pe rson. 



3.5.2 Deleting and Restoring a Class from a Browser 



You may want to remove a class you are not working with from 
the browser window. To remove Man from the browser window, 
bring up the information menu by clicking the left button on 
Man. Selecting DeleteFromBrowser causes Man to be deleted 
from the browser. The iattice in the browser window iooks like 
Figure 3.21. 
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Figure 3.21. Browser with Man deleted 

The class, Man, still exists; it simply does not appear in the 
browser. Note that deleting a super class from the browser will 
delete the class along with all of its subclasses. 

Classes that have previously been deleted from a browser can be 
brought back. To do so, move the cursor into the browser's title 
bar and hold down either the left or middle mouse button. 
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Figure 3.22. Browser Manipulation Menu 

Select RenoveFroraBadList from the submenu of AddRoot, as 

shown in Figure 3.23. 
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Figure 3.23. AddROOt sub-menu 

A pop up menu containing the items that have been deleted 
from the browser then appears as shown below in Figure 3.24. 
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BadList Items 



#.($ Man) 

Figure 3. 24. Pop up menu for Remove F roraBadL i S t 
Select Man and it reappears in the browser. 

3.5.3 Destroying a Class 

A class may also be destroyed. That is, the ciass can be 
completely deleted from your LOOPS environment 

Create a subclass Insect which is a specialization of Animal (as 
explained in Section 3.3). Insect will be used to demonstrate 
how to destroy a class. 

To destroy Insect, bring up the editing menu (middle button) 
on the class Insect. Select DeleteClass from the 
Del ete(DeleteMethod) submenu. You must confirm before 
any class is actually destroyed. Confirmation is accomplished by 
using the pop up menu shown in Figure 3.25. 



Confirm 



Destroy Insect 

Figure 3.25. Pop up menu to confirm destruction of Insect 

Select Destroy Insect to confirm that you wish to destroy the 
ciass. If you decide not to destroy the class, click any mouse 
button with the cursor outside of the pop-up menu. The lattice 
in the browser window now looks like Figure 3.21 again. 

It is an error to attempt to destroy a class which has subclasses, 
since a subclass can not exist if its super does not exist. Such an 
attempt puts you in an Interlisp-D break window. If you type OK 
inside the break window, the class and all of its subclasses are 
destroyed. If you type t in the break window the operation is 
aborted. 



3.6 Destroying and Shrinking Browsers 

If you are finished using a particular browser and want to get rid 
of it, you can destroy it. To do so, hold the right mouse button 
while in the browser window's title bar (see Figure 3.26). 
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Figure 3.26. Window Manipulation Menu 

The items in this menu are similar to those in the interlisp-D 
window manipulation menu except for the Close item. 
Selecting Destroy from the submenu of Close closes the 
window and destroys the browser. If you select Close, the 
window closes, but the browser still exists and take up memory 
space. Since a browser whose window is closed is not easily 
accessible, it is usually better to destroy it. 

Browser windows can also be shrunk using the window 
manipulation menu. Lattice browsers shrink to icons with the 
name of the root class as their title. Bring up the window 
manipulation menu on the example browser and select Shrink. 
The resuit is an icon as shown in Figure 3.27. As with all window 
icons, it can be expanded by positioning the mouse over it and 
clicking the middle button. It can be moved by positioning the 
mouse over it, holding down the left button, moving the icon to 
the desired spot and releasing the button. 



Animal 



Figure 3.27. Icon for Browser window of An iflial 



3.7 A Word about Notation 



LOOPS uses several different notations to refer to classes and 
instances. 

Animal When we refer to a class or an instance in the text we refer to it 
by its name, that is, the name it was given when it was created. If 
there is some possibility of confusion, we also state explicitly that 
we are referring to a class or an instance. 

($ Animal ) This is the way classes or instances are referred to in LOOPS code. 

The $ causes the system to find and return a pointer to the 
internal data structure which embodies the class or instance. 

#.($ Animal) This is the way the system prints out a class. For example, this is 
what you see if you type ($ Animal) at the top level 
read-eval-print loop. 
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10. GAUGES: ACTIVE VALUES AND 
OBJECT HIERARCHIES IN ACTION 



<NOTE TO XEROX: AS INSTRUCTED , WE HAVE NOT 
UPDATED THIS CHAPTER BECAUSE OF CONTINUING WORK 
ON GAUGES. > 

In normai life we use gauges to track specific values. Typically, 
we use gauges where it is important to continually monitor a 
value LOOPS provides a set of tools, called Gauges, which 
emulate those real life gauges we are familiar with. They are 
defined as LOOPS classes with active values providing the 
continuous monitoring. The class inheritance lattice for gauges, 
shown in Figure 10.1, shows how all of the sub-classes of Gauge 
are related. This structure is a combination of elision through 
inheritance and incremental specialization. (See Chapter 6). 
Notice that classes like Dig i Meter and DigiScale have 
multiple supers. 

There are two types of gauges: analog and digital. Analog 
gauges register changes in the value in a pictorial form, without 
registering the exact value. The Horizontal Seal e, Meter, 
Dial, VerticalScale, HBarChart, and BarChart as shown 
in Figure 10.2, are all examples of analog gauges. Digital gauges 
do provide the precise value, as shown by LCD, DigiMeter, and 
DigiScale in Figure 10.2. 

Gauges are defined so that when they are attached to a value 
within your program, that value becomes an active value which 
has no effect on the program using that value. A change in the 
value causes the reading on the gauge to change. When they 
are detached from a value the value returns to its original state. 
LOOPS provides a simple way to incorporate instances of gauges 
into existing programs. 

Gauges are very useful tools in their existing form, but they can 
also be customized. Existing classes in the gauge class lattice can 
be specialized and new classes added to the lattice. 

In the following pages, we discuss basic use of LOOPS gauges. 
Chapter 9 shows some examples of customizing gauges. 

If you are working in a new programming environment, load the 
file containing the Bank Account Example from Chapter 5 so that 
you may continue to work with the example in this chapter. 
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10.1 Object Hierarchies 
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Figure 10.1. Class inheritance lattice for gauges 

To view the class inheritance lattice for gauges, type: 
(Browse SGauge) 



1 0.2 Examples of Gauges 

Figure 1 0.2 shows some of the gauges available for you to use. If 
you would like to see a gauge, create an instance by typing: 

(<- gaugeClass Mew 'MyGauge) 

Then, display the gauge by typing: 
(<- MyGauge Update) 
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Figure 10.2. Seme examples of gauges 
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1 0.3 Create Gauge Instances 

You must create instances of the gauge classes to use in your 
programs To see how the gauge class, VerticalScaTe, 
behaves create an instance of the class Vs rti cal Seal e, named 
MyVS by typing: 

(<- SVerticalScale New ' MyVS) 

To see the gauge send it the Update message by typing: 
(*- SMyVS Update) 

A gauge wll! appear like the one shown in Figure 10.3. 
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Figure 10.3. Ve rti cal Seal e gauge 

Create an instance of the class Dial, MyOial, by typing: 

(<- SDial New 'MyOial) 
Send it the Update message to display it by typing: 



(*- JMyOial Update) 

it wiii iook iike Figure 10.4. 




Figure 10.4. Dial gauge 

Send both gauges the Set message with the argument, 50, by 
typing: 

(<- $MyVS Set 50) 

(<- SMyDial Set 50) 

Notice that they are set as shown in Figure 1 0.5. 
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Figure 10.5. Setting gauges to value of 50 

Try to set both of the gauges to 200. They will appear as in 
Figure 10.6. Notice the question marks in the upper left corners 
show that the value is off of the scale. We will show you how to 
change the scale below. 




Figure 10.6. Gauges set above their scales 

Create instances of some of the other types of gauges and 
exoeriment to become familiar with them. 



1 0.4 Attaching Gauges 

in this section, we discuss how to attach different gauges to the 
i rmance vat lab'e, Baiance, from our bank account example 
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10.4.1 VerticalScale 



gaugelnstance 
Attach 
object 
varName 



First, create an instance of Savi ngs, MySavi ngs by typing: 

(«- SSavings Hem 'MySavings) 

Now., you can attach MyVS to the Balance instance variable of 
MySavi ngs The syntax is: 

(«- gaugelnstance Attach object varName) 

The name of the instance of a class of gauges you wish to use. 

Message sent to gaugelnstance. 

Object you wish the gauge to be attached to. 

Variable in object that you want the gauge to display. 

So type: 

. («- SMyVS Attach SMySavings 'Balance) 

The VerticalScale will then appear as a ghost image 
prompting you to position it. Move the mouse cursor to a clear 
space on your screen and dick the left mouse button to place the 
gauge there. Notice that it now has a title, Balance, which is the 
instance variable it is attached to. 

When a gauge is attached to a value, that value becomes an 
active value. Inspect the instance, MySavi ngs, by typing: 

(INSPECT SMySavings) 

You will see that the value of the instance variable, Balance, has 
changed to an active value, as shown in Figure 10.7. 



All Values of Savings SMySavings. 


Credit Hi story 


NIL 




Deb itHi story 


NIL 




6a 1 ance 


#(5@ NIL S 


endA V Mess age ) 


User 


" LYN" 




DateOpened 


" lS-Jun-o'6 


08 : 59 : 35" 


TirneOpened 


0 3 : 5 9 : 3 5 




InterestRate 
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Figure 10.7. Instance variable, Balance, as an active value after a gauge is 
attached to it 



10.4.2 Dial __ 

Attach MyOial to the Balance of MySavi ngs following the 
same procedure as above. 

5ince you hope to have more than $100.00 in your account, 
change the scaie on each of the gauges. The SetScal e message 
sets the range on most gauges. Here we use it to set a scale from 
Oto 10000 for MyVS and MyOial. To do this, type: 

(«- SMyVS SetScale 0 10000) 

(*- SMyDial SetScale 0 10000) 

(Note: The complete set of messages available for use with 
gauges are listed in the LOOPS Reference Manual.) 
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The gauges will appear as shown in Figure 10.8. Notice the 
multiplication factor in the lower left corner of each gauge. 




Figure 10.8. Result of changing scales on gauges 

Send the Credit and Deb i t messages to MySavi ngs so you can 
see how the Vertical Scale and the Dial behave. Do this by 
typing: 

(<- SMySavings Credit 500) 

(<- SMySavings Credit 6000) 

(«- SMySavings Debit 2500) 

(<- SMySavings Debit 300) 

(Once you are finished, leave the gauges where they are, and 
continue on with this chapter. However, if you prefer to have a 
clean screen, you may preview section 8.5, at the end of this 
chapter, on detaching gauges.) 



10.4.3 DigiScale and DigiMeter 

DigiScale and DigiMeter combine both digital and analog 
gauges. The power of multiple inheritance is shown in these two 
gauge classes. They have two supers, one an analog gauge and 
the other a digital gauge, whose functions and data are 
combined. 

Create an instance of the class, DigiScale, with the name, 
MyDS, and an instance of the class, DigiMeter, with the name, 
MyDM by typing: 

(«- SOigiScale New 'MyDS) 

(<- SDigiMeter New 'MyDM) 

Attach both gauges to the instance variable, Balance, of the 
instance. MySavi ngs, and set their scales to the range 0 to 
10000, as you did with MyVS and MyDial in sections 8.4.1 and 
8.4.2 T he result will be similar to that shown in Figure 10.9. 
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1 
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Figure 10.9. instances of Dig iScal e and Dig i Mete r attached to 8alance 

of MySav i ngs 

Send Credit and Debit messages to MySavings to see how 
MyDS and MyDM behave. 



10.4.4 BarChartand HBarChart 

BarChart and HBarChart display a number of values together 
on one chart.- They are usefui when you need to compare values; 
for instance, a bar chart will show the balances of two accounts 
so they may be compared. 

Create two more instances of the class, Savings. Name them 
Jeff sSavi ngs and Bi 1 lysSavi ngs. Now create an instance 
of the class, BarChart, named AccountBarChart. You can 
use this bar chart to compare the balance of Jeff's savings 
account with the balance of Billy's savings account. 

Attach it by typing: 

(«- SAccountBarChart Attach $Jef f sSavings 
'Balance) 

(«- SAccountBarChart Attach $Bi 1 lysSavings 
'Balance) 

You will be prompted for a label for each. When prompted for 
the label for the one attached to Jef f sSavi ngs, type: Jeff, 
and when prompted for the label for the one attached to 
Bi 1 1 ysSavi ngs, type: Billy. The result will be a chart as shown 
in Figure 10.10 
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Figure 10.10. instance of the class BarChart attached to balance of 

Jef fsSaving sand balance of Bi 1 lysSavings 

Set the scale on AccountBarChart to the range 0 to 10000. 
Now Credit and Debit both accounts to see how the class 
BarChart behaves. The result will besimilarto Figure 10.1 1. 



100 




Figure io.ii. Accoun tBa rCha rt with balances of JeffsSavings 
and Bi 1 lysSavings 



10.5 Detaching Gauges 

The option. Close, in the window manipulation menu (right 
button) for gauge windows contains two sub-items: Close and 
Destroy, as shown in Figure 10.12. 
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Hardcopy;* 
Move 



shape 
Shrink 

Figure 10.12. vVmdow Manipulation menu for gauge window 

If the Close sub-item is selected, the gauge will be detached 
from the instance and instance variable it is attached to. The 
gauge will still exist but it will not be attached to anything; you 
can see it by sending it the Update message. 

If the Destroy sub-item is selected, the gauge will be detached 
from the instance and instance variable it is attached to and the 
gauge instance will be destroyed. Destroy should only be 
selected if the gauge will not be used again. 

Now that you are familiar with gauges, experiment with some of 
the other classes in the gauge inheritance lattice. 
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11. MIXINS - INHERITANCE WITH 
MULTIPLE SUPERS 



The inheritance order in a class lattice with multiple supers has 
not yet been discussed. This chapter addresses the full 
complexity of inheritance. 

One very useful technique based on multiple inheritance is the 
use of "mixins." Mixins are classes that are specifically designed 
to be inherited along with a given class's main super. A mixin 
provides a package of methods and variables that can be added 
to many other classes to give them added functionality. The 
examples in this chapter demonstrate multiple inheritance with 
mixins. 



11.1 Multiple Inheritance 



As an example of multiple inheritance, consider the abstract class 
lattice shown in Figure 11.1. The names of the classes are 
indicated in bold face type and the names of the methods are 
represented in normal type. For classes with multiple supers, the 
left-most super in the figure is also the left-most super in the 
Supers list. 




Figure 11.1. Diagram to show inheritance 
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In this discussion, methods are referred to by their full names. 
For example, the method X defined in the class D is referred to as 
O.X. 

The rule for inheritance in LOOPS is "left to right, up to joins". 
Each branch up the lattice is searched, starting with the leftmost 
branch and working right. A class with several specialization 
branches is not searched until all of the specialization branches 
have been searched. A class with multiple specialization 
branches is referred to as a join. A few examples will make this 
clear. 

In Figure 11.1, F has two immediate supers: B and D. These are 
the classes that appear on the supers list of F. G also has two 
immediate supers, 0 and E. D and E have the same immediate 
super, C. B and C's immediate super is A. The order of 
inheritance for F is F, B, 0, C, A. 

Suppose message X is sent to F. Since F does not have a local 
method with the selector X, LOOPS searches for a method with 
that name in F's supers. Its immediate supers are B and D. B is 
the left-most super, so it is checked first, then D is checked. In 
this case, the message X will be fielded by the method D . X. 

Now, suppose that the method D . X contains a call to <-Supe r. D 
has one immediate super, C, which does possess the method X. 
Therefore, C . X will be invoked as well. 

Now assume the message Y is sent to F. As before, LOOPS checks 
B and 0, but does not find the appropriate method. LOOPS next 
checks 0 and again does not find the appropriate method. The 
next class checked is C as the super of D. Note that A, which 
contains a method for Y, is not checked until all of its 
specializations have been checked. In this example, A is checked 
only after B and C are checked. 

In Figure 11.1, G has two supers: 0 and E. The order of 
inheritance for G is D, E, C, A. 

If the message X is sent to G, it is fielded by G . X. If G . X contains a 
call to <-Supe r, that message is fielded by D . X. 

Now, suppose G.X contains a call to *-Supe rFri nge. if X is sent 
to G, the message is fielded by G.X. The call to <-Supe rFri nge 
then sends the message to the classes on the supers list of G: D 
and E. The message sent to D is fielded by 0 . X and the message 
sent to E is fielded by C . X. In summary, the methods G.X, D . X, 
and C.X are all invoked. 

For convenience, the above example focused on method 
inheritance. The example also applies for inheritance of 
variables. 
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1 1 .2 An Existing Gauge Mixin 

<NOTE TO XEROX: AS INSTRUCTED, THIS SECTION HAS 
NOT BEEN UPDATED DUE TO CONTINUING WORK AN 
GAUGES. > 

The class, Self Seal eMix in, is a pre-defined mixin that 
automatically sets the scale on gauges. If you have a browser 
containing the gauge classes, SelfScaleMixin can be added 
to the lattice by selecting AddRoot from the browser 
manipulation menu and typing SelfScaleMixin when 
prompted for the item to be added. 

The gauge classes, SSBarChart, SSDigiMeter, nd 
SSHBarChart, have SelfScaleMixin as a super; other than 
this, they are the same as the classes, BarChart, DigiMeter, 
and HBarChart. 

By itself, SelfScaleMixin is a useless class. The definition of 
Sel fScaleMixin is shown below in Figure 1 1.2. 



DEdit of CLASSES g.($C SelfScaleMixin) 



((MetaClass Class Edited: 

C* dgt>: ■ ■ 1 o- J u n- 33 02: 32" ' ) ) 

(Supers Object) 
(Class Variables) 

( I n s t a n c e V aria b 1 e s ( 1 o w 3 c a 1 e F a c t o r 

5 d o c 

(* If maxCurrentfieading 
in rinks zo that it will fit" mors 
than low So ale Factor times in 
i n p utR an ge . e g au g e 
re so ales)) ,,i ) 



Figure n.2. The mixin, Se 1 f Seal eMi xin 

The method. Set, for SelfScaleMixin is shown in Figure 1 1.3. 
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DEdit of function SelfScaleMixm.set 



(Method 

((SelfScaleMixin Set) 

self readi ng other Argi other Arg2) *" 

r* R 6 (5 Martin 

■"1 1 -Apf-se 1 4;4i ••) 

r* Check if reading is too 
high or too low, and if so see 
if gauge needs to re ic al e ;i 
(PROG (maxDiff (max (i reading))) 
(COND 

( ( I GREATERP 
(SETO maxDiff 
( IDIFFERENCE max 

( @ i nputLower ) ) ) 
'. i n p u t R a n cj e ) ) 

(* If max is greater than 
previous max then Chang* 
range to make current max 
be 4/5 of full scale) 

(«■ self Set-Scale (11 i nputLower 

) 

(I PLUS (@ input Lower) 
(I0U0TIENT 
(ITIMES 5 maxDiff) 
4 ) ) ) ) 

((AND 

( IGREATERP 
(@ input Ranqe) 
(ITIMES maxDiff 

( Q 1 o w 3 c a 1 e F a c t o r ) ) ) 
(IGREATERP (@ inputRange) 

10)) 

r* if max is less than ic.vSc ale Factor time? 
range, and nswMax would not be less than 
10, then change range to make current max 
De' 4/5 of full scale ) 



s elf Set S c a 1 e ( il i n p u t L o w e r ) 
(I PLUS 
(i? i nputLower) 
(IMAX 19 

( I QUOTIENT 
( ITIMES 5 maxDiff) 
4))))))) 

( *Su per 

self Set reading other Argl other Arg£)) 



Figure 11.3. The method, Se t, for Se 1 f Seal eMl X i n 

To see how self scale gauges work, create instances of the classes. 
DigiMeter and SSDigiMeter, with the names MyDig iMeta r 
and MySSDigiMeter by typing: 

(«- $DigiMeter New ' MyDigiMeter) 

(«- SSSDigiMeter New "MySSDigiMeter) 
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Attach both gauges to the instance variable, Balance, of the 
instance, MySavings, by typing: 

(«- SMyDigiMeter Attach SMySavings 'Balance) 

(«- SMySSDigiMeter Attach $MySavings 'Balance) 

This is shown in Figure 1 1 .4. 



Top level — Connected to {DSK}<LiSPFHJE 



9 * (> $ OigiMe t e r N e w * M y 0 i g i M eter ) 

10* ( * $ S SO i g i M ete r N e w ' M y 3 3 D i g i M eter ) 

1 1 * ( * $ M y 0 i g i M ete r A 1 1 a c h 
$My3avings ? Balance) 

12* (* $ M y 3 3 0 i g i M eter At t a c h 
$ M y 3 a v i n g s 'Bala n c e ) 

13* 



Figure 11.4. Creating instances of Dig iMe te T and SSD i g i Me te T and 
attaching them to 8alance 

Credit and Debit the instance, MySavings, until you 
understand the behavior of the two gauges. Both gauges, 
MyDigiMeter and MySSDigiMeter, are shown in Figure 115 
with a reading of 350. 




Figure 11.5. Instances of Dig i Mete T and SSD i g iMete r with readings of 
350 



Notice that the analog meter on MyDigiMeter. does not give a 
correct reading but the analog meter on MySSDig iMeter dc-.s. 
The dial on DigiMeter went around 3 1/2 times You would 
need to infer that from seeing that the gauge only gees as high 
as 100. On the other hand, SSD ig iMeter, as a product of 
Sel f ScaleMixin, has included a xlO factor. 
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1 1 .3 A New Gauge Mixin 



<NOTE TO XEROX: AS INSTRUCTED , THIS SECTION HAS 
NOT BEEN UPDATED DUE TO CONTINUING WORK »N 
GAUGES. > 

Now we create a new mixin BlinkMixin to use with the 
gauges. Bl inkMixin causes a gauge to blink three times when 
it is set. The method Bl ink which gauges inherited from the 
class Wi ndottf, can be used to do this. To see the class inheritance 
lattice for Window, type: (Browse SWindow). Create the 
mixin, Bl inkMixin by typing: 

(DefineClass 'BlinkMixin) 

Add it to the gauge browser window by selecting AddRoot from 
the browser manipulation menu and typing Bl inkMixin when 
prompted for the name of the item to be added. 

You need to have the Set method for Bl inkMixin do the same 
thing as the Set you have been using for gauges along with 
causing the gauge to blink 3 times. The new version of Set for 
B 1 i nkMi x i n calls Blink to make the gauge blink 3 times and 
then uses «-Super to invoke the normal Set operation which 
sets the gauge. 

To do this, first select Add(AddMethod) from the editing menu 
on the class BlinkMixin to create a template for the method 
Set. Add reading to the argument list for the method after 
self. Replace (MethodNeedsToBeSpecial ized) in the 

template with: 

(«- self Blink 3) 

(♦-Super self Set reading) 

self 

The method looks like Figure 1 1 .6 when you finish. 



re 



Edit of-funcdon-BlinkMixiiLSet-- 



(Method ((BlinkMixin Sat) 
self reading) 

r'+ edited: 

'•1 7- JIM -38 1 2: SO") 

(* method that causes gauge 
to blink three times 
when ever* it is sett 

O self Blink. 3) 

(*Super 

self Set reading) 

self) 



Figure 11.6. The method Set for Bl i nkMixin 

Now, create a new class, Bl inkDigi Scale, which has as supers 
both Bl inkMixinand DigiScale. Type: 

(DefineClass *B1 inkDigiScale '(BlinkMixin 
DigiScale)) 

Next, create an instance of the class Bl inkDigiScale and 
name it MyBlinkDS. Display MyBlinkDS and send it the Set 
message to see Bl inkMixin in action. 
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Figure 11.7. Creating class, B 1 1 flkDi g i Sea 1 e, and testing t 



1 1 .4 A Mixin for the Bank Account Example 

This section explores class inheritance of methods from multiple 
supers in the context of the Bank Account example. If the Bank 
Account example is not already loaded, load it now. Also, if a 
browser for the Bank Account example does not currently exist, 
create one by browsing GenericAccount. 

Some bank accounts allow you to withdraw more money than 
the account contains. The overdraft is treated as if the account 
holder took out a loan. A mixin can be created which, when 
combined with any of the classes of the Bank Account example, 
yields an account that allows overdrafts. When there is an 
overdraft, the account balance is set to 0 and the amount of the 
overdraft is recorded separately. 

To implement this, create the OverDraf tMixi n class by typing; 

(DefineClass 'OverDraf tMixin) 

Add the class OverDraf tMixin to the class inheritance lattice 
for bank accounts. Select AddRoot from the browser 
manipulation menu and type OverDraf tMixin when 
prompted for the name of the item to be added. The class 
inheritance lattice should look somewhat like Figure 1 1.8. The 
figures in this chapter do not show some classes that were 
created in previous chapters. 



Glass browser 


GenericAccount 


Savings 
Checking 


NOV) 


OverOraftMixin 







Figure 11.8. Class inheritance lattice for bank accounts after adding the ciass, 

OverDraf tMixi n 
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Edit OverOraf tMixi n so that it looks like Figure 1 1 .9. 



DEdit of GLASSES #.($ OverDraf tMixfa) : 


( ( M e t a C 1 a s s Class d o c 


(* this mixing allows *" 
overdrafts to De made 
from the account! 


Edited : 


(* edited: 




'" 22- Nov- 86 1 3:03'")) 


(Supers Object) 


(Class Variables) 




( I n s t a n c e V a r i a b 1 e s ( 0 \ 


er Draft 9 doc 

(* this is this am o mn 
of overdrafts)) ) 


(MethodFns) ) 





Figure 11.9. Mixin Ove rD raf tM i X i n which ailows overdrafts or, bank 
accounts 

Ove rD raf tMixi n needs the methods C red i t and Deb i t. They 
will be specializations of GenericAccoun t . Cred i t and 
GenericAccount .Debit. However, OverDraf tMixin does 
not inherit these methods: they must be added from scratch. 

OverOraf tMixin .Credit needs to check to see if there is an 
overdraft. If there is, the amount of the credit should be applied 
to OverDraf t and any money remaining after the overdraft is 
zeroed out should be added to Balance. If there is no 
overdraft, the credit amount is simply added to Bal ance. 

The method Credit should look like Figure 11.10 when you 
finish. 



DEdit of function OverDraftMixin.Credit 



(Method 
( (OverOraf tMixin Credit) 

self A m o u n t ) r* e d ite d ; 

"I s-Jan-37 1 7:53") 

i + Method to credit an 
account that allows 
overdrafts) 

( if ( CREATE F: P A rn o u n t ( @ 0 v e r 0 r a f t ) ) 
then i> Super 

self Credit. 
(DIFFERENCE Amount 

( @ Over Oraf t ) ) ) 

( ^ il 

Over Or a ft 8) 

else (*@ 

OverDraf t 

(DIFFERENCE (@ OverDraf t) 
Amount ) ) ) 

(@ Balance)) 



Figure 11.10. The method C red i t for Ove rD raf tMixin 

OverDraf tMixin. Debit needs to check to see if the amount 
of the debit is greater than the balance. If it is, Bal anca should 
be set to zero and the difference added to Overdraft If the 
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debit does not exceed the balance, the amount is simply 
subtracted from the balance. 

Oebi t should look like Figure 11.11 when you finish. ^ 



DEdit of function OverDraftMixin.Debit 



(Method 
( ( 0 v e r D r a f t M i x i n 0 e b i t ) 
self A m o u n t ) f* * d ite d : 

"1 3-Jan-S7 17:54") 

(* Method to aec«it an 
account that allows 
overdrafts. > 

(if (LEO A rn o u n t ( <a B a 1 a n c e ) ) 
then (+ Super 

self Debit Amount) 

else 

( ~i| 

. OverOraf t 
( PLUS (@ Over Draft) 

(DIFFERENCE Amount 

( il Ba 1 a nee ) ) ) ) 

( * Super 
self Debit (Q Balance)))) 



Figure 11.11. The method Debit for Ove rO raf tMi x i n 

Notice the call to <-Super in both of these methods. If you look 
back at Figure 11.9, you will see that the only super that 
OverOraf tMixin has is Object. If OverOraf tMix in were 
designed to be used alone, this would be an error since Object 
has no methods named Credit and Debit. However, because 
it is a mixin, OverDraf tMi x i n's calls to <-Super are not a 
problem (as long as it is mixed in with a class which does have 
these methods). 

Now create a class named OverDraf tChecki ng with multiple 
supers, OverDraf tMixin and Checking. First specialize 
Checking. Then add the super OverDraf tMixin to 
OverDraf tChecki ng. Be sure the mixin is first in 
OverDraf tChecki ngs supers list, because 

OverOraf tChecki ng needs to have Credit messages fielded 
by OverDraf tMixin .Credi t, not by 

GenericAccount . Credi t. 



The class inheritance lattice for bank accounts should update 
automatically to look like Figure 11.12. 



Class browser 


GenericAccount 


Savings 










— Checking ^ 


NOWAccount 


OverOraf tMixin - 




^ OverOraftCheckinq 



Figure 11.12. Class inheritance lattice for bank accounts with the eass 

OverDraf tChecking added 
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Now test that the methods of OverOraf tCheck i ng work 
properly. Create an instance of OverOraf tChecking and send 
it various credit and debit messages. Use the inspector to see if 
Ba 1 ance and Ove rO raf t are updated correctly ** 

!n this chapter, Credi t and Oebi t were designed to return the 
resulting account balance. This is in keeping with the way that 
the other versions of these methods work. The returned value is 
not particularly informative when there is an overdraft because 0 
is always returned. It might be interesting to think about ways to 
make the result more useful. 
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1 2. CUSTOMIZING LOOPS TOOLS 



This chapter explores an advanced example that incorporates 
most of the techniques learned in previous chapters. Here, a 
specialization of one of the LOOPS browsers is created. This new 
browser is then used to display information about a budget. This 
exercise illustrates how to specialize the LOOPS system tools and 
provides more experience with building LOOPS programs. 

If the Bank Account example from Chapter 6 is not loaded, you 
should load it now. 

In this project, various budget categories, also called accounts, 
are represented by instances of the AccountUse class. Unlike 
instances from earlier examples, these instances form a tree. For 
example, the personal expense account might have 
entertainment and clothing subaccounts. Similarly, the 
entertainment subaccount might have restaurant and movie 
subaccounts. 

As you know, the ClassBrowser does not show instances and the 
inspector shows only one instance at a time. In order to view an 
entire budget, a new kind of browser must be created. 



12.1 Existing Browsers 

Browsers are LOOPS objects. Each browser is an instance of one 
of the browser classes. The parent of all browsers is the 
LatticeBrowser class. The class inheritance lattice for the 
browsers is shown below in Figure 12. 1 . 



Class browser 






- FileBrowser 


LatticeBrowser 


._— — ClassBrowser ^ 


SupersBrowser 






"- MetaBrowser 




InstanceBrowser 





Figure 12.1. Class inheritance lattice for Lat t i ceB TOWSe r 



Up to this point, examples have emphasized using the 
ClassBrowser. The Fi leBrowser was introduced in Section 
5.2. The browser customized in this chapter is the 
InstanceBrowser. Unlike the ClassBrowser, which 
automatically depicts the inheritance relationships among 
classes, the InstanceBrowser requires explicit specification of 
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object links before it can display the lattice structure of the 
related objects. 



1 2.2 Creating a Browser Subclass 

Bring up a Lattice Browser on the class LatticeBrowser 
Specialize InstanceBrowser to create the subclass, 
AccountBrowser. 

InstanceBrowser contains an instance variable, sublV. The 
name stands for sublink instance variable, sub IV contains the 
name of an instance variable in the class or classes of instances to 
be displayed. The instance variable named in sublV should be 
the variable whose value is used to link an instance to its 
subsidiary instance(s). When the browser is displaying instances, 
it looks in each one for an instance variable of this name. If 
found, the browser uses the value of the variable to find the 
children of each instance and displays them also. 

The default value of sub IV in InstanceBrowser is simply MIL. 
In order to use InstanceBrowser directly, it is necessary to fill 
in this value with the name of the instance variable. In the 
example, the instance variable Chi Id is used to create a tree of 
instances. If, for example, instances Y and Z appear in the Child 
list of X, then X should appear higher than Y and Z in the browser 
tree display. The first part of the example makes Child the 
default value for the sub IV instance variable. 

In order for the child default value for sub IV to appear in 
AccountBrowser, sublV must be local to AccountBrowser. 
It would be simple to use DEdit to add this instance variable. 
However, it is useful to know how to copy variables from one 
class to another. This operation is similar to the copying 
operations you already know. First, box AccountBrowser. 
Then, using InstanceBrowser's edit menu, select CopylVTo 
from the submenu of Copy(CopyMethodTo). Finally, select 
sublV from the menu that pops up. Select title from the pop 
up menu, as well. 

Now change the value of sublV to Child and the value of 
title to "Account Browser". AccountBrowser, should 
look like Figure 12.2. 



1 2 2 
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DEdit of GLASSES #.($ AccountBrowser) 



( (Met. aC lass Class Edited: 

r* edited; 

•'22- NOV- 66 1 7:05")) 

( Supers I ns t anceBro wser ) 
(ClassVariables) 

( I n s t a n c e V a r i a ta 1 e s ( s u b I V u h i 1 d d o c 

(* Name of instance variable 
which provides names 
and/ or pointers to 
sub objects)) 

(title "A c c o u n t B r o w s e r " ) ) 

(MethodFns ) ) 



Figure 12.2. AcCOUntBrowse T after adding instance variable. SUblV 



12.3 Creating a Savings Subclass 

The money in a savings account may be earmarked for a variety 
of uses, such as school, business, and personal. The money for 
personal uses may be further divided into money to be spent and 
money to be saved. 

Below, an example budget is created and displayed in an 
instance of AccountBrowser. 

Create a subclass of Savings, called Special Savings, with 
the instance variable Chi Id. When in use Chi Id holds a list of 
instances which represent the budget items for this account. 

SpecialSavi ngs should look like Figure 12.3. 



DEdit of CLASSES #.(S SpecialSavings) 



( ( M e t a C 1 a S S C 1 a S S d 0 C (* b u d g e te d sav i n g s 

account) 

Ed i ted : (* edited; 

"22- NOV- 36 17;1 1")) 

(Supers Savings) 
(ClassVariables) 

( I ns tance'/ar i ab 1 es ( Ch i 1 d NIL doc 

i* children pf object 
in Drvvser)) ) 

(MethodFns) ) 



Figure 12.3. Spec i a 1 Sav i ngs with instance variable, Child, added 
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12.4 Creating an AccountUse Class 

Create a class named AccountUse to be used for creating the 
instances that represent the various categories in a budget. 
AccountUse is not a specialization of any of the bank classes; 
use Oef ineClass and then use AddRoot to add it to the bank 
browser. 

Give AccountUse the instance variable, Balance, with a 
default value of 0. Balance holds the amount of money 
budgeted for each item. Next, add the instance variable Chi Id 
with a default value of NIL This holds the list of subitems to be 
represented in AccountBrowser. 



When you are finished, the AccountUse class should look like 
Figure 12.4. 



DEdit of GLASSES #.($ AccountUse) 


( (Met. a Class Class doc 


i* class for instances 




'A'Hich will represent 




budget items) 


Edited : 


(* edited: 




" ' 22- No v- s6 1 7; 1 7" ' ) } 


f 3 u p e r s 0 b .] e c t ) 




(ClassVar iables ) 




(Ins t a n c e V a r i a b 1 e s ( E 


ia lance 0 doc 




<+ amount o f m o n e y i n 




budget item)) 


("Child NIL doc 


* (* budget subitems)) ) 


(MethocJFns) ) 





Figure 12.4. The class Accoun tUse with its instance variables added 



12.5 Setting Up the Budget Tree 

In this section, a set of instances are created and iinked through 
Chi Id variables. 

Fist, create an instance of Special Savings named 
MySpecial Savings. Now create a set of instances of 
AccountUse to represent budget items. Name them 
Business, School, Personal, save, and spend. 

The main budget items of the account will be Business, 
School, and Personal. Therefore, the value of Child for 
MySpecialSavi ngs should be a list containing pointers to 
these three instances. The browser uses these pointers to display 
the instances as subinstances of MySpecial Savings. The 
easiest way to put them in is to use the inspector. Open an 
inspector for MySpecial Savings and select Child with the 
left button. Then hold the middle button and select PutValue 
When prompted, type: 

(LIST ($ Business) (S School) ($ Personal)) 
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the value of Child should change to: 

(#.($ Business) #.($ School) #.($ Personal)) 

Now use the inspector on Personal to make save and spend 
be subinstances of it. Its Child should look like: 

(#.($ save) #.($ spend)) 



12.6 Creating a Browser Instance 

An AccountB rowse r instance can be created by typing: 

(«- («- ($ AccountBrowser) New) Browse ($ 
MyAccount)) 

A browser as shown in Figure 12.5 should appear. 



Account Browser 




Business 






School 




MyAccount ~ 










save 




Personal 








~— spend 



Figure 12.5. AccountB rouse r for Spec i a 1 Sav i ngs 

Remember, this lattice shows a series of instances, not classes. 
Unlike a ClassBrowser, this browser shows a lattice only if 
explicitly set up using sublV. 



1 2.7 Using Your Lattice 

The instances and the browser displayed are not very useful. 
They simply show the way money in MyAccount is budgeted. 
However, they can become useful if the method CheckBal ance 
is added to the classes of the instances displayed. 
CheckBal ance will check the values of Bal ance in each of the 
objects in MyBrowser and make sure that the values of 
Balance in any object's subobjects add up to the object's value 
of Balance. Forinstance, if Personal has a balance of $100, its 
subobjects, save and spend, should have balances that add to 
$100. 

Because there are instances of two different classes in the budget 
tree, the CheckBal ance method must belong to both 
SpecialSavings and AccountUse. Each one issimply given a 
copy. Think about how both might be made to inherit the same 
method. 

Begin by creating the method 

SpecialSavings. CheckBal ance as shown in Figure 12.6 
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DEdit of function SpecialSavings.CheckBal 



(Method 

( ( 3 p e c i a 1 S a v i n g s C h e c k B a 1 a n c e ) 
self ) r* edited: 

"22-N0V-S6 13:57") 

(+ method to check if 
budget balances'! 

(if (NULL (9 Child)) 
then (fl Balance) 
else 

(if (EQUAL (0 Balance) 
(for x 

in ( il C h i 1 d ) 
sum (@ x Balance))) 
then ( @ B a 1 a n c e ) 
else (PRINT 

"ERROR IN ACCOUNT BALANCE" 
PROMPT W I N D 0 W ) ) ) ) 



Figure 12.6. The method CheckBal ance 

Copy this method from Speci al Sav i ngs to Accoun tUse. 

Now the CheckBal ance method can be tested. Give each 
budget item a balance. If an inspector is open for any of them, 
use that inspector. If not, click the middle button over the 
budget item names in the Accounts rowser and select the item 
Edi t from the menu. This is a new way to alter the local values 
of instances. The same menu can be used to open up inspectors. 
This menu, and the others that are easily discovered, are 
inherited from Instances rowser. 

Once values have been given to the budget items, send the 
message CheckBal ance to any and all of them. Try creating 
balanced as well as unbalanced budgets to make sure both work 
properly. 

The information displayed when the budget does not balance is 
not very useful. Consider altering CheckBal ance to print out 
information about exactly what does not balance and where. 
Also consider how to set up a system in which the various budget 
items would actually be subaccounts. That is, credits and debits 
would be sent to a specific part of the budget. The balance 
would be updated at that part of the budget as well as in the 
overall balance of the account. 



u fi 
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1 3. USING MASTERSCOPE WITH 
LOOPS 



The Masterscope program, used to analyze programs in 
Interlisp-D, is also used with LOOPS programs. If you are not 
familiar with Masterscope, see the Masterscope chapter in 
Interlisp-D: A Friendly Primer and in the Interlisp-D Reference 
Manual. 

As programs become larger or more complex, it can become 
difficult to keep track of which objects send messages, read the 
values of variables, or put the values of variables in other objects. 
Masterscope is a tool that allows you to examine the structure of 
programs. It is able to analyze LOOPS programs to see how 
objects interact with each other. 



13.1 Masterscope Verbs for use with LOOPS 





LOOPS adds a series of verbs to Masterscope so that relationships 




peculiar to LOOPS can be analyzed. Here is a selection of those 




verbs (see The LOOPS Manual for a complete list): 


SEND 


sends the message 


SEND SELF 


sends the message to self 


SEND NOTSELF 


sends the message to other than self 


SPECIALIZE 


specializes the method 


GET 


gets the instance variable 


GET CV 


gets the class variable 


PUT 


sets the instance variable 


PUT CV 


sets the class variable 


USE IV 


gets or sets the instance variable 


USE CV 


gets or sets the class variable 


USEOBJECT 


references the named object 



13.2 An Example of using Masterscope 

Masterscope commands are invoked by typing a period followed 
by a space followed by the command, if the banking example is 
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stored on a file, try Masterscope on it. The first step is to have 
Masterscope buiid up a data base of the relationships in the file 
by typing: 

ANALYZE FUNCTIONS ON BANK 



Your screen looks like Figure 13.1 after doing this. 



Top level ~ 


Connected tit {DSK}<LISPFILE 


NIL 




37*. ANALYZE 


FUNCTIONS ON BANK 


.... done 
,-. .-. . 









Figure 13.1. Using Masterscope to analyze the Ba:i.k Account example 

To find out where C red i t messages are sent from, type: 
. WHO SENDS Credit 

To find out where a Ba 1 ance variable is referenced : 
. WHO GETS Balance 
. WHO USES IV Balance 

Figure 1 3.2 shows the results of some Masterscope commands. 
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NIL 

4*. WHO SENDS Credit 
NIL 

5*. WHO SENDS Debit 
( C h e c k i n g . W r i t e C h e c k ) 
6^. WHO GETS Balance 
( Gene r i c A c c o u n t , C r e d i t 

G e n e r i c A c c o u n t . D e b i t 

3 a v i n Q s . C o m p u t e I n t e r e s t ) 
7*. WHO USES IV Balance 
( G e n e r i c A c c o u n t . C r e d i t 

6 e n e r i c A c c o u n t . D e b i t 

3 a v i n g s . C o m p u t e I n t e r e s t ) 

3 



Figure 13.2. Using Masterscope on tne 3ank Account example 

The Masterscope command DESCRIBE includes information 
about sending, getting, and putting. DESCRIBE can be used 
with LOOPS methods. For example, to get a description of the 
method Gene ricAccount .Debit, type: 

. DESCRIBE GenericAccoiint .Debi t 

The results of calling the Masterscope command DESCRIBE are 
shown in Figure 13.3. 



1 ^ ? 



AN EXAMPLE OF USING MASTERSCOPE 



Top level — 


Connected to {DSK}<LISPFILE 


NIL 








8*. DESCRIBE 


Gener i c 


Account. . Oeb i t 




( GenericAccount .Debit 


) 




calls: 


^'1 1 LET, 


CONS, DATE, il, 






DIFFERENCE 




binds: 


self ,06 


b it Amount 




puts IV s of 


self: 


Debit-History, 








6a 1 a nee 




q e t s I V s o f 


self: 


Deb itHi story , 








Balance 




NIL 








9- 









Figure 13.3. The Masterscope command DESCRIBE 
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14. SOME CLOSING WORDS 



This primer is designed to tell just enough about LOOPS to get 
you started. Early chapters discuss the concepts of object 
oriented programming and the LOOPS implementation of those 
concepts. Later chapters present standard tools, design 
techniques, and methods for modifying the objects provided in 
the LOOPS environment. 

It is now time to use this material on tasks that are more 
interesting and relevant than the Bank Account example. Here 
are some useful suggestions for next steps in LOOPS. 

LOOPS lends itself to exploratory programming. We urge you to 
take the ideas in this primer and begin to develop preliminary 
versions of your system in LOOPS. There are development 
projects where LOOPS was used to implement 1 5 to 20 different 
versions of a system before it was exactly right. The LOOPS 
interface provides both a programming tool and a thinking tool. 
As you develop a new system, each preliminary version provide? 
an object for thought and discussion. The preliminary versions 
are a crucial part of the design process. 

As you gain some more experience with LOOPS, we suggest you 
skim the entire LOOPS Reference Manual. By becoming familiar 
with this manual you learn where to look when you need a 
feature that is too obscure or tricky to be covered in this primer. 

The truly adventurous LOOPS user should also consider looking 
at the definitions for objects provided by the system. All the 
predefined LOOPS classes exist in the class lattice and can be 
inspected and browsed just like user defined classes. 

For more information on how the LOOPS language was created 
and defined, we recommend the article: 

"Object Oriented Programming: Themes and Variations", Mark 
Stefik and Daniel G. Bobrow, Artificial Intelligence Magazine, 
Winter 1986, Vol. 6, No. 4, pp 40 - 62. 

For an interesting discussion of future trends in object oriented 
programming, we recommend the article: 

"CommonLoops: Merging Common LISP and Object Oriented 
Programming"; Daniel G. Bobrow, Ken Kahn, Gregor Kaczales, 
Larry Masinter, Mark Stefik, and Frank Zdybel; Xerox Palo Alto 
Research Center, Intelligent Systems Laboratory Series, ISC-85-8; 
August 1985. 

Good luck! 
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A WORD ABOUT NOTATION 



(Animal (NTVO.OX: . P%]7 .%[§>. 4) ) This is the way the system prints an instance. The unintelligible 

string of characters after the name is called a unique identifier or 
UID. Since instances are not required to have names, a UID is 
generated for each one. 
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4. VARIABLES, METHODS, AND 
MESSAGES 



This chapter describes how to access the variables in LOOPS 
objects, how to create and move a method, and how to send 
messages. 

By the end of this chapter you will know the basic information 
necessary to implement complete LOOPS programs. 



4.1 Variables 

In the previous chapter, you learned how to examine and set the 
values of variables using the inspector or the editor. In this 
section you will learn about four basic forms for reading and 
setting instance variables and class variables in a running 
program. Beginning with this chapter, we use iv for instance 
variable and cv for class variable. 



4.1.1 Reading Instance Variables 

The syntax for reading an instance variable is: 

(@ object ivname ) 
To see how variable access works, type: 

(@ ($ Billy) Haircolor) 

It should return Blond. Note that the ivname (Hai rColor) is not 
evaluated and thus should not be quoted. 



Top level — 


Connected to {DSK}<LISPFILE 


63* ( i? ($ Bill 


y) HairColor) 


Blond 




64* 





Figure 4.1. Using the § function 



4.1 .2 Setting Instance Variables 

To set an instance variable, the syntax is: 
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( <-@ object ivname newvalue ) 

Try changing the value of Bi 11 y * s Hatsize to 8 by typing: 

(«-@ ($ Billy) Hatsize 8) 

If you still have your inspector window for Billy open, you may 
have noticed that the value of HatSize did not change. 
Inspectors do not automatically update themselves when values 
are changed. To see the change, select Refetch from the 
inspector's title bar left button menu, and Billy's Hatsize 
value changes to 8 as shown in Figure 4.2. 



All Values of Man ($ Billy). 


DateOf Birth 


0 


Heart Rate 


9 


Hatsize 




HairColor 


Blond 


Muse 1 es 


Big - 


Beard 


T 



Figure 4.2. instance variables and values for Billy 



4.1 .3 Reading Class Variables 



The syntax for reading class variables is similar to that for 
instance variables: 

( @ object : : cvname ) 
Note the double colon (: :) prefixing cvname. 
Try typing: 

(8 ($ Person) : :Legs) 
The value 2 should be returned as shown in Figure 4.3. 



Top level Connected to {DSK}<USPFI 



la 



NIL 

64*(i3 ($ Person) 



: : Legs) 



Figure 4.3. Fetching the value of a class variable 



4.1.4 Setting Class Variables 

The syntax for setting class variables is also very similar: 

(«-§ object :: cvname newvalue) 

Change the value of Person's class variable, Legs, to 4, by 
typing: 

f t-Ot I t Pa neon \ * * I SOS A\ 

Now change the value of Pe rson ' s Legs back to 2. 
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4.1.5 A Note of Caution 

Much of the modularity of an object-oriented program is derived 
from aiiowing oniy an object's methods to read or change that 
object's internal variables. Typically, reading and setting is done 
through particular messages that enforce constraints to maintain 
consistency among an objects's variables. LOOPs does not 
enforce this modularity; any object may read or set the variables 
of another object. You should use this capability carefully. @ and 
*-@ should be used mainly inside the methods of an object to 
access that object's variables -- including any variables inherited 
from its supers. 



4.2 Methods 

Each class has a set of methods which establish what that class 
can do. Just as with variables, a class inherits all of the methods 
from its supers. Because methods are defined in a class, all 
instances of the class have the same methods and behave in 
basically the same way. Any differences in behavior are due to 
differences in the values of the instance variables in each 
instance. 



4.2.1 Creating a Method 

For the example, add the method WhoAml to the class, Man. 
Bring up the editing menu for Man and select Add(AddMethod ) 
from the editing menu. You are prompted for the name of your 
method. Once you have typed in the name you are 
automatically put into DEdit with a method template to edit, as 
shown in Figure 4.4. 



DEdit of function Man.WhoAmI 



(Method ((Man Who Am I) 

self ) r* edited: 

"14- NOV- 36 19:15"') 
(* New method template;:! 
(SubclassResponsibi 1 ity ) ) 



Figure 4.4. New method template for Man ' S method WhoAml 

A method is a special kind of function defined by LOOPS. Note 
that the function type, instead of being LAMBDA or one of the 
other Interlisp-D function types, is Method. The first argument to 
a Method function is always a list containing the object in which 
the method is defined and the name of the method. The second 
argument is always self. Self is bound to the object that receives 
the message when the method is run. Methods use self to access 
the variables and other methods of the object. If a method has 
other arguments, they follow self. 



METHODS 



First, document the method by replacing (* New method 
template) with: 

(* method to print a description of an instance 
of Man) 

In general, comments can be added to methods just as they are 
added to any other kind of function. 

Replace (SubClassResponsibility) in the body of the 
method with: 

(PRIMl "I an ") 
(PRINT self) 

(PRIN1 "I was born on ") 
(PRINT (8 DateOfBirth)) 
(PRIN1 "My haircolor is ") 
(PRINT (8 HairColor)) 
(PRIN1 "My hatsize is ") 
(PRINT (8 Hatsize)) 

The call to the function, SubClassResponsibility, is more 
than a place holder. If you forget to edit a method, it causes a 
warning if the method is run or compiled. 

When finished, your defined method, WhoAmI, should look like 
Figure 4.5 below. 



□Edit of function Man.WhoAml 



( M e t h o d ( ( M a n W h o Ami) 

self) r* * dite d: 

■'17- NOV- 36 17; 13") 

(* Method to print & 
description of an instance of 
Man) 

(PRIN1 "I am "J 
(PRINT self) 

(PRIN1 "I was born on ") 
(PRINT (@ DateOfBirth)) 
(PR INI "My haircolor is ") 
(PRINT (@ HairColor)) 
(PR INI "My hatsize is ") 
(PRINT f@ Hatsize))) 



Figure 4.5. Man ' S method WhoAm I 

Did you notice something different about the variable access 
expressions? There is no object argument in them. They could 
have been written in this form: 

(@ self DateOfBirth) 

However, because variable accessing is meant to be done mainly 
from inside methods, the argument object is automatically 
assumed to be self if it is left out. 



4.2.2 Moving a Method 

As a LOOPS program is developed, it is often found that a 
method is in the wrong place in the class lattice. In our example, 
it is clear that the method WhoAmI applies to Woman as well as to 
Man. Therefore it should be moved up to Person where it is 
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inherited by both classes. Bring up the editing menu (middle 
button) on the dass Person in the browser window and select 
BoxNode. This puts a box around Person to show where the 
method should go. Next, call the editing menu on Man and select 
Move(MoveMethodTo) A pop up menu appears with Man's 
methods as its items. (See Figure 4.6.) To complete the move, 
select WhoAml from this menu. 





'Man Methods 


Class browser 


| Who Ami 


Animal 'Person] == 


- Man 

"~- Woman 



Figure 4.6. Pop-up menu with Man ' S methods 

To check that Person has received the method WhoAml, bring 
up the information menu (left button) on Person and select 
Pri ntSuramary. The summary of the class Person is printed as 
shown in Figure 4.7. Under Methods, the method WhoAml is 
printed in bold type to indicate it belongs to Person. If you 
PrintSummary for Woman, the WhoAml method is listed, but not 
in bold because Woman inherits this method from Pe rson. 
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#.($ Person) 
Supers 

Animal 
IVs 

HairColor Hatsize 

DateOf Birth HeartRate 
CVs 

Legs Mammal 

HasEyes IsLiving 
Methods 

WhoAml 



Figure 4.7. Summary of Pe TSOn 



4.3 Messages 

Message passing -- objects sending messages to other objects --is 
the main activity of programs written in object oriented 
languages. When an object receives a message, it runs the 
appropriate method. After running the method, the object 
returns some value to the sending object. Generally the method 
causes some side effects to happen as well. Often these side 
effects include sending messages to other objects. You have, for 
example, already sent the message New to cause the method New 
to create instances. 



MESSAGES 



4.3.1 Syntax of a Message 



The syntax of a message is: 

(«- object selector argument! argument! . . . ) 

<- activates, or sends, the message. 

object is the object to which the message is sent. This object is bound to 
self in the body of the method definition. This argument is 
evaluated. 

selector is the name of the method that is to be invoked by this message. 
This argument is not evaluated and should not be quoted. 

argument(n) are bound to the corresponding arguments in the method 
function. These arguments are evaluated. 



4.3.2 Sending a Message 

To send a message with selector WhoAnl to the instance Billy, 
type: 

(<- ($ Billy) WhoAml) 

The result of this message is displayed in Figure 4.8 
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34<r<> ($ Billy) WhoAml) 

I am #. ("$ B i 1 ly) 

I was born on 9 

My hair co lor is Blond 

My hatsize is 7 

85* 

Figure 4.8. Output when message WhoAfll is sent to Bi 1 1 y 

When an instance receives a message, it matches the selector of 
the message with the names of its own methods. These methods 
include those that are inherited from the supers of the instance's 
class. If a match is found, the method is run. If no match is 
found, an error occurs. 

It is quite possible for different classes to have methods with the 
same name, but with very different method bodies. This allows 
objects to communicate with other objects in a standard way 
without the sender worrying about internal differences in those 
objects. For instance, there might be many different Who Aral 
methods using different bodies. As long as they all print out a 
description of the object to which they are sent, they are all the 
" same " method as far as other objects are concerned . 



4 6 
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5.1 Using FILES? and MAKEFILE 



All of the elements of a LOOPS program can be saved on files in 
the same way that work is saved in Interlisp-D. The function 
Files? is used to add newly created objects, methods and 
instances to files. The function MAKEFILE is used to write a file 
to a storage device. 

When you type: 

(FILES?) 

any class definitions, methods, and instances which are not 
already associated with files are listed (along with standard 
Interlisp-D entities such as functions and variables). You are then 
asked if you want to specify their destination files. If you type Y 
(for yes), they are listed one at a time. After each, type the name 
of the file it is to go in. An example is shown in Figure 5. 1 . 
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91*(FILES?) 

. . . to be dumped . 

the instances: Jeff, Billy ... to be dumped 
the c 1 ass def i n 1 1 i ons : Animal, Woman , 

Man, Person ... to be dumped, 
want to say where the above go ? Yes 
(methods) 

Person . WhoAm I File name : EXAMPLE 
( instances ) 
Jeff Nowhere 
Billy Nowhere 

definitions ) 

File name : EXAMPLE 
EXAMPLE 
AMPLE 
EXAMPLE 



ic i ass 
Animal 
Woman 
Man E: 
Person 
NIL 
92* 



Figure 5.1. Usinc the function FILES? 
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Note that we chose not to save the instances Jeff and Billy, 
although they could have been saved as well. It is often just as 
easy to recreate instances from their classes as it it to save them 
on files. In some cases, instances may be the product of a 
particular run of a LOOPS program a % nd should not be saved since 
the next run will produce different instances. 

Note how methods are named. Pe rson . Who Am I is the Who Am I 
method for the class Person. This naming convention is 
followed outside of the actual LOOPS code and LOOPS browsers. 

To write out a file, you can use MAKEFILE (or MAKEFILES) as 
you would for any Interlisp-D file: 

(MAKEFILE 'filename) 

The file, EXAMPLE, which was created in Figure 5. 1 , is written to 
the hard disk in Figure 5.2. 



Top level— Connected to {DSK}<LISPF1L 



97* (MAKEFILE ' EXAMPLE ) 
{OSK}<LISPFILES>REES>PRIM>EXAMPLE. ;1 
98* 



Figure 5.2. Saving an example file 



5.2 Using the FileBrowser 

After a long session of creating and editing LOOPS code, it can 
be rather tedious to have to inform the file package where each 
method, class and instance should go. Also, if the system you are 
developing is big enough to be stored in more than one file, it 
can be difficult to decide which objects go in which files. The 
convention is to store an entire sublattice in a file. Methods 
should go in the same file as the classes to which they belong, 
subclasses should go in the files of their supers and instances 
should go in the files of their classes. If things are not stored in 
this way, the files have to be loaded in a very particular order. A 
method can not be defined for a class that does not exist; a class 
can not be defined if its super does not exist, and so on. In the 
worst case, it is possible to create files which can not be loaded in 
any order. 

LOOPS provides a file browser (FileBrowser) to simplify adding 
classes and methods to files. This browser should not be 
confused with the library package, FILEBROWSER. The LOOPS 
file browser is very similar to the class browser you have already 
been using. The FileBrowser can be used instead of the 
ClassBrowser whenever you want to create new items and save 
them in a Pile, it is also useful when you want to see what classes 
and methods are in a given file. The class browser operations 
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you have already used, such as creating and editing classes and 
methods, are performed in exactly the same way using the 
FileBrowser as using the GassBrowser. 

In order to illustrate the FileBrowser, you will create a file and 
put a class, a subclass and a method in it. Because the only 
reason for the existence of the classes and the method is to 
observe how the FileBrowser works, they will be "dummies" 
they will not do anything. 

To begin, hold the middle button in the loops icon and select 
Browse Fi le, as shown in Figure 5.3. 




Figure 5.3. Accessing the FileBrowser 

The File List appears as in Figure 5.4. 



File List 



*newFile* ¥ 
EXAMPLE 
HRULE 
I M TED IT 
IM TOOLS 
IMTRAN 

Figure 5.4. The menu from the Browse File selection. 

Select *newFile* and then type a file name in the prompt 
window. We are using the name FBEXAMFLE, but it does not 
matter what name you use. Do not use the name of an existing 
file. A completely empty FileBrowser should appear as in Figure 
5.5. 



File browser (selected file FBEX AMPLE) 



Figure 5.5. An empty FileBrowser 

To browse a file that was already loaded, you could have selected 
its name from the File List menu. To load an existing file, you 
could have used *1 oadFi le* from the submenu of *newFi le*. 

Now you can create a root class for the FileBrowser. Unlike the 
ClassBrowser, the FileBrowser allows you to create the root class 
from a menu, so you do not have to use Def i neCl ass. Click the 
middle button in the FileBrowser's title bar to get the menu 
shown in Figure 5.6. Note that the first three items are exactly 
the same as those in the ClassBrowser title bar menu. Select 
AddKoot and type in some class name at the prompt. In our 
example, the name is not important. We are using the name 
AC1 ass. Because adding a root to a FileBrowser also adds it to a 
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file, you are asked to confirm this operation by clicking the left- 
mouse button. 

Recompute 
AddRoot * 
Add Category Menu 
Change display model? 
Use? IV* f 
Edit File Corns P 
CLEANUP file $> 

Figure 5.6. The FileBrowser title bar menu 

Now use the ciass edit menu just as you have before (click the 
middle mouse button over the class name) to give your root class 
at least one subclass, and add at least one method to one of your 
classes (We have named ours ASubCl ass and OneMethod.) For 
this example, it is not necessary to actually edit the classes or 
methods. 

As you create items with a FileBrowser, they are automatically 
put into the file corns list. This is a data structure maintained by 
Interlisp-D that describes the contents of a file. To see the result 
of your work, bring up the title bar menu again and select Edit 
File Cons. You should see, as in Figure 5.7, that everything 
you have created with the browser is already in the file corns. 



□Edit of variable FBEXAMPLEGOMS 




i;+ File ere 




(CLASSES AC lass A 


SubClass) 




( METHODS ASubCl.as 


s . OneMethod ) 




(FNS) 

( INSTANCES ) ) 











Figure 5.7. OEdit of File COMS variable 



Now, type (FILES? ) It is still necessary to do this to make sure 
that instances and any auxiliary Interlisp-D functions are properly 
included in files. However, for this example, the only message 
you should see is that your file needs to be dumped. As always, 
the final step is to use MAKEFILE to write out any files that need 
to be dumped. For our example, type (MAKEFILE 
' FBEXAMPLE ). 

In the chapters that follow, we use the ClassBrowser in our 
figures. However, if you wish to save the examples you create, 
you can use the FileBrowser. Remember that while the 
FileBrowser has some extra menu items for dealing with files, the 
basic menu items for creating, modifying, and displaying LOOPS 
objects and the LOOPS lattice are exactly the same in the 
ClassBrowser and the FileBrowser. 
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6. THE BANK ACCOUNT EXAMPLE 



In this chapter you write a program that integrates all that has 
been covered so far. This example is used again in Chapter 9. If 
you think you might not have time to cover both chapters in one 
session, use the FileBrowser (see Section 5.2) instead of the 
ClassBrowser to make it easier to save this program on a file. 



6.1 Designing the Program 



Savings Account 



Checking Account 



NOW Account 



Your goal is to write a program that defines and keeps track of 
different types of bank accounts. The types of accounts to 
include are: 

A savings account must contain a record of the balance as well as 
a history of deposits and withdrawals. It must also store the 
current interest rate and compute the interest earned. 

A checking account must similarly contain a record of the 
balance and a history of deposits and withdrawals. It must also 
maintain a list of check numbers coupled with the amounts and 
dates of the checks written. 

A NOW account is a combination of a savings account and a 
checking account. Checks can be written and interest is earned. 

These accounts all have some operations and variables in 
common. You design your class lattice structure by determining 
the operations and variables common among the objects. 

First, you define a class, GenericAccount, which consists of 
those variables and methods common to all of the accounts. 
Figure 6.1 shows a representation of the class lattice you are to 
develop. The classes are shown along with their instance 
variables. 
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GenericAccount 

Cred i tHi story 
Debi tHistory 
Bal ance 



Savi ngs 

Credi tHistory 
Deb i tHi story 

Balance 
In teres tRate 



Checki ng 

Cred i tHi story 
Debi tHistory 
Balance 
CheckingHistory 



NOWAccount 

Cred i tH i story 
Deb i tHi story 

Bal ance 
Interes tRate 
CheckingHistory 



Figure 6.1. Inheritance lattice for Bank Account example 

The class GenericAccount can add in deposits as credits, 
subtract out withdrawals as debits, and update the balance. The 
rest of the lattice structure. comes naturally from the definitions 
of the accounts given above. Notice that we have given 
NOWAccount two supers: Savi ngs and Checking. 



6.2 Creating the Classes 

First, create all of the classes you need. Then you can go back 
and fill in the class variables, instance variables, and methods. 

To create the root node, GenericAccount, type: 

(OefineClass 'GenericAccount) 

Next open a browser for GenericAccount. Then, create two 
specializations of GenericAccount: Savings and Checking. 
Your browser window should look like Figure 6.2. 



Glass browser 



Savings 

GenericAccount ~— ___ 

Checking 
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Figure 6.2. Lattice with Savings and Checki ng classes added 

NOWAccount has 2 supers, so the process of creating it is a little 
different. First, create it by specializing Savi ngs. Then bring up 
NOWAccount s editing menu and select AddSuper from the 
submenu of Add( AddMsthod ) Type Checking in the prompt 
window. Your browser should look like Figure 6.3. 



Class browser 



Savings 

GenericAccount 

Checking NOWAccount 

Figure 6.3. Browser including NOWAccount 

Now that the entire lattice is created, you can edit each class. 



6.3 Editing GenericAccount 

Start your class definitions with GenericAccount. Bring up the 
editing menu (middle button) on GenericAccount in the 
browser window and select Edi t( Edi tCl ass ). Document 
GenericAccount by adding the following between Class and 
Edited m the class definition template: 

doc (* the generic type of bank account; defines the basic 
things needed for all kinds of accounts) 



6.3.1 Adding Variables, Values, and Documentation 

GenericAccount has only one class variable since only one 
variable has a value that is the same for every account. Add the 
following after ClassVariables in the template: 

(FDICInsured 100000 doc (* all accounts insured by federal 
government to $ 100, 000)) 

All of your accounts have a credit history, a debit history, and a 
balance. Since each account has different values for these 
variables, CreditHi story, DebitHistory, and Balance are all 
implemented as instance variables. 

CreditHistory and DebitHistory will keep lists in the form of 
( Credit Amount . date) and (Oebi tAniount . date). To 
insert these instance variables into your GenericAccount class, 
add the following variables, values, and documentation to the 
list starting with Instance Variables in the template: 

(CreditHistory NIL doc (* a list of (CreditAmount . date) to 
tell the credit history)) 

(DebitHistory NIL doc (* a list of (Debi tAnwunt . date) to 
tell the debit history)) 

(Balance 0 doc (* the current balance of the account)) 
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Note that RIL is the default value for CreditHistory and for 
DebitHistory. When you are finished editing, Gene ri cAccoun t 
should look like Figure 6.4. 



DEdit of GLASSES #.($ Generic Account) 



( (. M e t a G 1 a s s CI a s s d o c (* tn * g e n * ri c typ e of 

bank account, define s 
the basic things need 
for all Kinds of 
accounts) 

Ed i ted : f* Edited: 

"15- NOV- 86 14:15")) 

(Supers Object) 

( C TassVar i ab 1 es ( FD I C I nsured 190000 doc 

C* all accounts 
insured Dy the federal 
government to 
§1 00,000) ) ) 

i I ns t anceVar i ab 1 es ( Cred i t-H i story N I L 

doc 

(* a list of ( 
Credits, mount , date) 
to tell the credit 
history)) 

(Debit Hi st or y NIL d o c 

r* a list of ( 
DebitAmount , date) to 
tell the debit history)) 

(Balance 9 d o C (* th e e u rre nt b.a.i an c e 

of the account)) ) 

(MethodFns) ) 



Figure 6.4. instance and class variables in Gene ri cAcCOUflt 



6.3.2 Defining Credit and Debit Methods 

All of the accounts need methods to credit and debit the 
account. First, you define the method, Credit, which takes a 
deposit, adds it to the balance and updates the credit history. 
Begin by using the browser edit menu to add the method 
Credit to GenericAccount. When the DEdit window 
appears, add the argument, CreditAmount, after self. Add the 
appropriate documentation then type the following code in 
place of (SubCl assResponsibi 1 i ty) in the body of the 
method: 

(«-0 CreditHistory 
(CONS 

(CONS CreditAi»ount (DATE) ) 
(9 CreditHistory))) 
(4-3 Balance 
(PLUS 

(0 Balance) 
CreditAaount)) 
(9 Balance) 

The results should be as shown in Figure 6.5. Note that the 
method returns the new balance. 
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□Edit of function GenericAccount.Credit 



( M e t h o d ( (Gene r i c A c c o u n t C r e d i t ) 
self Credit Amount.) 

r* edited: 

" i 5- No v- S6 1 4; 26" ' '"! 

(* * Adds (CreditAmount , date) to 
Cred itHi story and adds CreditAmount to 
Balance) 

Credi tHi story 

( C 0 N 3 ( C 0 N S C r e d i t A rn 0 u n t ( DATE)) 
03 Cred itHi story ) ) ) 

(*a 

Balance 

(PLUS (@ Balance) 

Credi tAmount) ) 
(Q Balance)) 



Figure6.5. The method C red i t for Gene ri cAccount 

Now define the method Debit. It is the same as Credit except 
that it subtracts an amount from the balance. Overdrafts are 
discussed below. Your method should look like Figure 6.6. 



□Edit of function GenericAccount.Debit 



(Method 

( ( G e n er i c A c c 0 u n t D e b i t ) 

self Deb i tAmount ) r+ edited: 

''■17-jan-sr 15:43") 

(+ * Adds (DeDitAmount , date) to 
OebitHistory and subtracts DeDitAmount 
from Balance.) 

(*e 

OebitHistory 

(CONS (CONS Deb i tAmount (DATE) 
(a OebitHistory)))) 

( *-a 

Balance 

(DIFFERENCE (Q Balance) 
Deb i tAmount) ) 
(a Balance)) 



Figure 6.6. The method Deb i t for Gene ri cAccount 



6.3.3 A Simple Test of GenericAccount 

Now, before defining the rest of the classes, test an instance of 
GenericAccount to ensure that the methods Credit and 
Deb i t are working properly. 

Create an instance of GenericAccount, with the name 
MyGene ri c, by sending the message New: 



xi ] r p> a mi/ a i~r-r\\ imt cvAiv/ini r 
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(<- ($ GenericAccount) New 'MyGeneric) 

Now send a Credi t message to MyGeneric. Credit the account 
with 1000 by typing: 

(«- ($ MyGeneric) Credit 1000) 

The new balance should be returned because we put (8 
Balance) at the end of the method. To verify that the method 
updated the instance variables correctly, inspect MyGeneric by 
calling the function ( INSPECT ($ MyGeneric)). It should 
appear as shown below in Figure 6.7. 



All Values of GenericAccount ($ MyGeneri 



Cred i tHi s t o r y ( ( 1 9 9 9 
Deb itHi story NIL 
Balance 1999 



"15-Nov-86 14:41:5 



Figure 6.7. Result of sending the message C red i t 

Now test Debit in the same way. Try withdrawing 500 from 
your generic account by typing («- ($ MyGeneric) Debit 
500). Remember to use Refetch in the inspector's title bar 
menu to update the values shown there. It should now look like 
Figure 6.8. 



All Values of GenericAccount ($ MyGeneri 



Credi tHi story ((1906 . "15-Nov-86 14:56:9 
GebitHistory' ((599 . " 15-Nov-86 14:56:22 
Balance 599 



Figure 6.8. Result of sending the message Deb i t 



6.4 Editing Savings 

When GenericAccount works properly, you can define 
Savings. Because Savings inherited all of 

GenericAccount * s methods and variables, you only need to 
add one additional instance variable which contains the interest 
rate, and a method to compute the interest. 



6.4.1 Adding Variables, Values, and Documentation 

Add the variable, InterestRate, with a value of .05, to your 
Savings class. When you are done, your class should look like 
Figure 6.9. 
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DEdit of GLASSES #.($ Savings) 



( ( M e t a C 1 a s s C 1 a s s d o c (* si m u i ate s a 

stan d ard s avi n g s 
account) 

Ed i ted : <;# edited: 

"15- Nov- 56 1 5; 06' ' '\ ,i 

( S u p e r s G e n e r i c A c c o u n t ) 
(ClassVariables) 

( InstanceVar iables (Interest-Rate . Hi 5 do« 

(+ default value of 
interest rate is 5 
percent)) ) 

(MethodFns)) 



Figure 6.9. Inserting instance variable InterestRate in S«iV i HQ S 



6.4.2 Defining a Computelnterest Method 

Now you must define a method that computes the interest 
earned, based on the current balance, and then adds the interest 
to the balance. For simplicity, we ignore the length of time 
various amounts have been in the account. 

Add the method Computelnterest to Savi ngs and give it the 
following body: 

(«-§ Balance 
(PLUS 

(8 Balance) 
(TIMES 

(8 InterestRate) 
(8 Balance)))) 

(8 Balance) 



Your method should look like Figure 6. 10. 



DEdit of function Savings .Computelnterest 


(Method 






( (Savings 


Computelnterest) 


self) 




r* edited; 






"15- NOV- 66 15:15") 






(* credits account with 






interest based on the interest 






rate and the current 






balance) 


Balance 






(PLUS (S 


Balan 


ce ) 


(TIMES ( 


1 InterestRate) 




( 


H Balance)))) 


03 Balance)) 





Figure 6.10. The method Computelnte rest 
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6.4.3 Simple Test of Savings 



Now you can test Savings in the same way that you tested 
GenericAccount. Create an instance of Savings called 
MySavings. Credit it with 1000 and debit it by 500. (Remember, 
it inherits these methods from GenericAccount.) Now send 
MySavings the message Conputelnterest. Finally, inspect 
MySavings to insure that everything worked properly (Figure 
6.11). 



All Values of Savings ($ MySavings). 



CreditHistory ((1990 . "15-Nov-86 15:23:5 
DebitHistory ((599 . "15-Nov-36 15:24:95 
Balance 525.9 
Interest Rate .95 



Figure 6.11. Results of Credit, Debit, and Computelnte rest on 
MySavings 



6.5 Defining Checking 

Next, define the class, Checking. Like your previously defined 
class, Savings, Checking has inherited all of 
GenericAccount' s methods and variables. You only need to 
add one new instance variable and a method to write checks. 



6.5.1 Add Variables, Values, and Documentation 

The instance variable will contain the checking history. It will be 
a list of triples. Each triple will contain the check's number, its 
amount and its date. When you are finished, your class should 
look like Figure 6.12. 



DEdit of GLASSES #.($ Checking) 



(( Met aC lass Class doc (* simulates & 

standard checking 
ac c o u nt) 

Ed i ted : f* edited; 

"15-Nov-3e 13: 51")) 

(Supers Gener icAccount ) 
(ClassVar iables) 

( I ns tanceVar i ab 1 es (Check. i ngH i story 

NIL doc 

(* Keeps list of 
(CheckNumber 
Am o u nt D ate ) trip l e s) ) 

) 

(MethodFns) ) 



Figure 6.12. The class Check i ng 
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6.5.2 Defining a WriteCheck Method 

You need a method to store check numbers, amounts, and dates 
in CheckingHistory, and to update the Balance. 

Add the method WriteCheck to Checking with the following 
body: 

(«-« CheckingHistory 
(CONS 

(LIST CheckNuaber A«ount (DATE)) 
(8 CheckingHistory))) 
(«- self Debit Amount) 

Your defined method looks like Figure 6.13. Notice the last line 
of Wri teCheck. You have already created a method to debit an 
account so WriteCheck can use this method. Checking 
inherits the method, Debit, from Generic Account. The 
debit message can be sent to self; that is, to the instance of 
Checking which received the WriteCheck message. This 
example shows a way that methods can be built out of simpler 
methods by having them send messages to self, just as functions 
can be built out of calls to simpler functions. Note: when 
sending a message, self cannot be omitted as it can in the @ and 
<-@ expressions. 



DEdit of function Checking.WriteCheck 


(Method ((Chec 


king WriteCheck) 


"self 


C h e c k N u rn b e r A rn o u n t ) 




f* edited; 




"15- NOV- 38 ISjaS"') 




(* adds a (CheckNumDer 




Amount 0 ate > triple to 




Chec King Hi story and dec its 




the account) 


o@ 


CheckinqH i story 


(CONS 


(LI S T C h e c k N u rn b e r A rn o u n t 




(DATE)) 




( @ C h e c k i n g H i s t o r y ) ) ) 


O self 


Debit Amount)) 



Figure 6.13. The method Wri teCheck for Checki ng 



6.5.3 Simple test of Checking 

Now test Checking. Create an instance called MyChecking and 
credit it with 100. Write a check by sending the message 
WriteCheck with the arguments 100 and 25.00. Then inspect 
your instance. The result should look like the Inspector window 
shown below in Figure 6.14. 



All Values of Checking ($ MyChecking), 



CreditHistorv ((198 . "15-Nov-86 15:59: 
Deb itHi story' ((25.0 . "15-Nov-86 15:59 
Balance 75.0 

Check i ngH i story ( ( 100 25 . @ " 15-No v -66 15 : 
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Figure 6.14. inspection of My Check i ng 



6.6 Testing NOWAccount 

Because a NOW account is a combination of checking and 
savings, the class NOWAccount inherits everything it needs 
except documentation. All you need to do is create an instance. 
Name the instance MyNOW and test it by crediting it with 500, 
debiting it by 100, writing a check for 55.55 and asking for the 
interest. Then inspect it. Your results should look like Figure 
6.15. 



All Values of NOWAccount ($ My Now). 


Cred i tHi story 


( ( 560 . " lS-Nov-86 15:59: 


Deb it History 


f'i'55.55 . "lR-Nov-3fi 1R:5 


Balance 


361 . 6725 


I nterestRate 


. @5 


Check ingH i stor 


y ((101 55.55 "15-Nov-Sb 15 



Figure 6.15. Inspection of MyNOW 

This example is expanded in later chapters. If you are not 
continuing through the primer at this time, you should save your 
LOOPS program so that you can load it in again later. See Section 
5. 1 for instructions on how to do this. 
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7. STRATEGIES FOR ORGANIZING 
OBJECTS 



Designing the class lattice for a LOOPS program is central to the 
effective use of LOOPS. A carefully designed lattice can result in 
a simpler and more effective problem solution. This chapter 
presents three typical strategies for organizing objects: elision 
through inheritance, incremental customization, and factoring 
functionality. 

These strategies are a starting point. Often an application will 
require a combination of two or even ail three strategies. With 
experience you will discover strategies of your own. 



7.1 Elision Through Inheritance 

Elision through inheritance is the most basic strategy used to 
organize a lattice of objects. The word "elide" means to 
eliminate or to leave out. When creating classes, it is not 
necessary to specify each class completely. Instead, common 
characteristics can be grouped in a super object. To use elision 
through inheritance, determine which characteristics are 
common to all objects that must be organized. The top-most 
class in the lattice has variables and methods to implement those 
characteristics. Each successive specialization adds only those 
characteristics which make it different from its supers. Thus, 
parts of the description of a given class can be elided, making the 
construction of a set of classes much easier. 

Elision through inheritance is useful for defining complex 
taxonomically related networks of objects. The Animal lattice 
used to introduce classes in Chapter 1 is an example. Such a 
network is often called an "is-a" hierarchy, e.g. a woman is-a 
person, a person is-a animal, etc. 

An example of organizing objects with elision through 
inheritance is shown in Figure 7. 1 . 
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An imal 
HairColor Brown 
EyeColor Brown 



son I 

i \ 
I 

i 



\ 

\ 

Woman 

HairLength Long 



Figure 7.1. Organization of objects for elision through inheritance 

In this example, the lattice is used to describe classes. The 
description of each class is simplified by class inheritance. The 
class, Man, inherits the instance variables, HairColor and 
EyeColor, along with their default values from Animal. Man 
also inherits the instance variable Legs along with its default 
value from Person. Due to inheritance, Man has four instance 
variable/default value pairs. Only one of these pairs is actually 
defined in the class Man: the other three can be elided because 
of LOOPS inheritance. 

When objects are organized using elision through inheritance, 
usually only the objects lower in the inheritance lattice are used 
to create instances. Although the objects higher in the lattice do 
represent real or existing things, they are primarily used for their 
taxonomic or classifying function. 



7.2 Incremental Customization 

Incremental customization is another way to simplify the 
specification of classes by using inheritance. In incremental 
customization, certain more general classes are not designed to 
have instances; they are meani to be combined with other 
classes to create new classes that do have instances. An example 
of this strategy is shown in Figure 7.2. 




STRATEGIES "OR OROANIT'NG O^jEC^S 



INCREMENT AL CUSTOMIZATION 



Luxury 



MidsizeCar 



FourWheel 



Sedan 



7 




BulgeTownCar 



BulgeAl 1 
TerainWagon 



BulgeZX 



BulgeHatch 



Figure 7.2. Lattice showing example of incremental customization 

Figure 7.2 shows a series of automobile classes. Mi ds i zeCar has 
three specializations, Sedan, Wagon and HatchBack. Each of 
the classes in the bottom row represents a specific model of car. 
These bottom classes inherit from one of the specializations of 
MidsizeCar Most also inherit from either Luxury or 
FourWheel in the top row. 

The classes Luxury, MidsizeCar, and FourWheel are not 
designed to be used alone. They are not complete enough to be 
instantiated. Rather, they are designed to be used together with 
the classes in the middle row. Each provides a package of 
features that can be combined to create a description of specific 
automobile models. For instance, Luxury can be mixed 
together with any one of the three middle classes to produce a 
specific model. 

The key to using incremental customization is recognizing a 
generic set of prototypes in your problem domain. It must be 
possible to describe most problem situations in terms of unique 
combinations of the generic prototypes. 

For example, consider an expert system to diagnose assembly line 
faults based on specific error reports from a set of standard tests. 
With incremental customization each test is represented as a 
high level class. A particular failed product is represented by an 
instance of a class that inherits from each class representing each 
test the product failed. 



73 Factoring Functionality 

Organizing objects to factor functionality is done by grouping 
related variables and methods for an object into a set of multiple 
supers. When objects are defined in this way, only the class 
lowest in the inheritance lattice is used to create instances. 



FACTORING FUNCTIONALITY 



Factoring functionality is a strategy useful for developing 
programs with several distinct major components. Super classes 
are created to represent those major components. This allows 
for a modular partitioning of distinct system components. -An 
example of factoring functionality is shown in Figure 7.3. 



OisplayManager 




Statistics 




Simul ation 
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/ 




Simul ationModel 





Figure 7.3. Lattice showing example of factoring functionality 

Instances of Simul ationModel will simulate some process, 
collect statistics, and produce an animation on the screen. Each 
instance includes all three capabilities because all three are 
inherited by Simul at ionHodel . To modify the statistics 
capabilities it is only necessary to edit the S tat i s t i cs class. 

The three super classes, OisplayManager, Statistics, and 
Simulation, each contribute their definitions to 
Simu 1 ationModel Instances of the super classes alone are not 
instantiated. If some aspect of the functionality of 
Simul ationModel needs to be changed, only one of its supers 
needs to be edited. 
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8. SPECIALIZING METHODS 



Specializing methods can be more complex then specializing 
variables. Class and instance variables are inherited from a class 
to its specializations. Methods are also inherited in this manner. 
With methods, however, there are additional concerns. 

When specializing a class, you can specify variables in the new 

specialization in three ways: 

• Inherit a variable and its defaults as specified in the super. In 
LOOPS, this is the default way of specifying variables in 
specializations. 

• Inherit a variable but change the default from what is specified 
by the super. 

• Specify variables in the specialization that are not inherited from 
the super. 

With methods, specialization is more complex. You might, for 
example, wish a specialized method to set a few instance 
variables, run the super's method, then reset the instance 
variables. Such finer grained control of method inheritance is 
discussed in this chapter. 



8=1 <-Super and *-SuperFringe 

LOOPS provides two special versions of «- (the Send operation) 
which facilitate the incremental specialization of methods. They 
are *-Super, pronounced "send super" and <-SuperFri nge, 
pronounced "send super fringe". They allow you to make 
changes to a method contained in a class that is higher in the 
class hierarchy, without changing the original method. 

When <-Super is placed in one of a specialization's method 
definitions, a super's version of the same method is run. 
Execution then returns to the method of the object instance 
which originally received the message. In other words, *-Super 
forwards a message up the class hierarchy and causes the next 
more general version of the method to be invoked. 
♦-Super-Fringe is similar. If the receiving object has multiple 
supers, it will forward the message to all of them, possibly 
causing several versions of the method to be invoked. *-Super 
stops once it finds one version of the appropriate method. 

The syntax is the same for both: 

(<-Super object selector arg1 arg2 ...) 

(<-SuperFringe object selector argl arg2 ... ) 
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Object should be se 1 f . Selector is not evaluated. It is often the 
case that a specialized method has exactly the same arguments 
as the more general method. In this case, the following 
shorthand may be used : 

(«-Super) 

Before attempting the following examples, be sure the Bank 
Account example from Chapter 6 is loaded. 

As a first example of specializing methods, new methods with 
the selector Status can be created for the Checking and 
Savings classes. Then NOWAccount can be given two different 
specializations of Status to demonstrate how «-Super and 
<-SuperFringe behave. All of the Status methods will simply 
print out a message telling something about the account. 

For Checking, Status will print the checking history of the 
account. For Savings, Status will print out the current 
interest rate. Create these methods now. The body of 
Checking. Status should be: 

(PRINl -THE CHECKING HISTORY OF YOUR ACCOUNT IS: " 
PROMPT* IN DOW) 

(PRINT (9 Check ingHi story) PROMPTWINDOW) 

and the body of Savings. Status should be: 

(PRINl "THE INTEREST RATE FOR YOUR ACCOUNT IS: ") 
(PRINT (9 InterestRato)) 

The class NOWAccount inherits from both Checking and 
Savings. Each one now has a method called Status. Does 
NOWAccount inherit both of them? If not, which one does it 
inherit? Create an instance of NOWAccount named MyNow (if 
My Now does not still exist). Try sending the message Status to 
MyNow and see what happens. The result should be something 
like Figure 8.1. 



Prompt Window 



HE CHECKING HISTORY OF YOUR ACCO 
UNT IS: ((101 55.55 
"15 -Nov -86 15:59:47")) 



Figure 8.1. Sending StatUS to MyNOW 

Only one of the two methods was invoked. Looking at the class 
definition for NOWAccount, notice that Checking is first on the 
list of supers. When a class has multiple supers, they are tried in 
left to right order to find any inherited parts. Thus, classes can 
not inherit conflicting characteristics. 

Now two different specializations of Status will be created, 
one using «-Super and then one using «-SuperFri nge First, 
select Special izeMethod from the submenu of 
Add( AddMethod) in the editing menu on NOWAccount. Then 
select Status from the method menu that pops up. When the 
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editing template appears, note that <-Supe r is already present as 
in Figure 8.2. 



DEdit of function NOWAccount.Status 



( M e t h o d ( ( N 0 W A c c o u n t S t a t u s ) 
self) f* edited; 

"1 3-N0V-S6 1 7;49") 

(* Method to print status of 
an account,) 

OSu per- 
se If Status)) 



Figure 8.2. The method Status for NOWAcCOlint 

Ordinarily, the next step wouid be to add some code before 
and/or after the call to <-Super to produce a more specialized 
method. For now, simply add some documentation and exit. 

Try sending the message Status to MyNow again. The result 
should be exactly the same as before (see Figure 8. 1 ). The version 
of the method that «-Super finds is the same one originally 
inherited. 

Now edit the method, NOWAccount.Status, replacing *-Super 
with *-SuperFringe as in Figure 8.3. 



DEdit of function NOWAccount.Status 



( M e t h o d ( ( N 0 W A c c o u n t 3 1 a t u s ) 

se If) - (* edited; 

"1 3- Nov- 36 1 7;53";i 

(* Method to print status of 
an account,) 

(*SuperFr inge 
self Status)) 



Figure 3.3. The method Stat US for SOWACCOUnt 

Send the message Status to MyMow again. Notice that the 
Status methods for both Checking and Savings are invoked. 
This is because both are supers of NOWAccount. 

<-SuperFringe is rarely used. This is because it is unusual to 
find two methods with the same selector that are truly 
complementary. Methods with the same selector often 
duplicate and/or conflict with each other's actions. In most cases, 
♦-Super is used to add functionality to the methods of the first 
super on a specialization's supers list. 



8.2 Specializing a Method in the Bank Account 

Neither of the method specializations you have created so far 
have added any functionality to the method being specialized. 
This section illustrates how to augment inherited methods. 
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SPECIALIZING A METHOD IN THE 3ANK ACCOUNT 



First, add a specialization of the Savings class, named 
Mi nimumBal ance as shown in Figure 8.4. 




GenericAccount 



Savings 
Checking 




Minim urn Bala nee 



NOWAccount 



Figure 8.4. Class inheritance lattice for Bank Account example 

A minimum balance account is a savings account bearing a 
higher interest rate than a regular savings account. A minimum 
balance account carries a penalty if the balance goes below the 
minimum allowed. The penalty is deducted after any debit 
leaves the account's balance below the minimum balance. 

The Mi nimumBal ance class needs new variables to specify the 
minimum balance and the penalty. Since these are the same for 
all individual accounts, they should be class variables. Add the 
class variables, Minimum and Penalty with values of 1000 and 
100, respectively. 

The Mi nimumBal ance. Deb it method needs to be specialized. 
It should first execute the GenericAccount .Debit method to 
actually debit the account. Then, if the balance is below 
Minimum, Penal ty should be deducted from Bal ance. 

To do this, select Special izeMethod from the submenu of 
Add(AddMethod) and then select Debit from the pop-up 
menu. 

Add the following Lisp code after the call to «-Supe r in the body: 

(if (LESSP (8 Balance) (9 self -Minimum)) 

then (*-Super self Debit (8self ::Penalty))) 

The Mi nimumBal ance . Deb i t method will look like Figure 8.5. 
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DEdit of function MinimumBalance.Debit 



( M e t h o d ( ( M i n i rn u m B a 1 a n c e D e ta i t ) 
self Deb it Amount) 
(* edited; 

' 5 1 S- NOV - 66 1 8; 44' ' j 

(* + Adds (Cre dismount , date") to 
Creditm story and subtracts CreditAmount 
from Balance, Then checks if Penalty 
should De debited,) 

(*3uper 
self Debit Deb it Amount) 
(if (LESSP (@ Balance) 

( i ; ; m i n i mum ) ) 
then (> Super- 
self Debit- (@ :: Penalty) 
) ) ) 



Figure 8.5. Method Deb i t for class Mi n inunBal ance 

Note that this Oeb i t method uses the inherited Deb i t method 
twice whenever the balance is low. 

To try out this new Debit method, create an instance of 
Mi nimumBa lance named MyMinifiun. Credit it with 5000 and 
debit it by 4500. The balance returned should be 400 rather than 
500. 



9. ACTIVE VALUES AND 

ACCESS-ORIENTED PROGRAMMING 



Access-oriented programming is a programming paradigm in 
which fetching or storing data activates computations. In 
LOOPS, access-oriented programming is implemented using 
objects called active vaiues. When an active value is read or set, a 
desirable side effect happens automatically. 

The following sections describe how to define LOOPS active 
values and how to use them to monitor program states, to guard 
variables values, and to propagate values among objects. 

This chapter continues to work with the Bank Account example. 
Load that example now if it is not currently loaded. 



9.1 Defining Active Values 

To make the value of a variable active, the value is replaced by an 
active value object. When an attempt is made to access the 
value, the active value object does some computation, using its 
methods. The actual value may be stored inside the active value 
object or it may be computed by that object. 

The process for defining and using active values can be divided 
into four basic steps: 

(1) Choose an Active Value Class. LOOPS provides a set of 
classes designed to create various kinds of active values. To see 
these classes, browse the class Acti veValue. The portion of the 
lattice initially concentrated on is shown in Figure 9. 1 . 



Glass browser 


ActiveValue 


— — - LocalStateActiveValue 






NotSetValue 



Figure 9.1. A oortion of the Ac t i veVa 1 Lie lattice 

ActiveValue is an abstract class. It contains all variables and 
methods common to active values but it is not complete enough 
to function on its own. ActiveValue is never instantiated 
directly. Local StateActi veVal ue and NotSetValue are 
specializations of ActiveValue. 

(2) Specialize the ActiveValue. Some of the active value 
classes provided by LOOPS can be used without change. Others 
must be specialized to yield the desired effects. 
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(3) Create Instances. As with other classes, the actual work is 
done by instances of active vaiue classes. Each active value is a 
separate instance of the appropriate active value class. 

(4) Install the Active Value. Active values all inherit the 
ability to instaii themselves. This is done with the message 
AddActi veVal ue. The syntax of this message is: 

(«- self AddActi veVal ue contamingObj varName) 

self is the active value which is installed, containingObj is the 
object in which the active value is installed, and varName is the 
variable on which the active value is installed. There are optional 
arguments and we wili not use them in these examples. 

To illustrate how active values are typically used, we begin by 
discussing how NotSetValue works. 

LocalStateActi veValue and its specializations are used in 
the examples presentea later in this chapter. 

When an instance is created, the instance variables are each 
bound to an instance of NotSetValue. Each instance of 
NotSetValue is an object with a method for finding and setting 
the default value of the variable to which it has been bound. If 
an instance variable is directly bound to a local value, that vaiue 
replaces the instance of NotSetVal ue (which was bound to the 
value of the variable instantiation). When an attempt is made to 
access the value of an instance variable which has no local value, 
NotSetValue finds the default value in one of the supers and 
copies it into the instance. Since default values are often 
replaced with local values, this approach avoids fetching default 
values unnecessarily. 

We continue by demonstrating how to apply the four basic steps 
to an example. 



9.2 Using Active Values to Monitor State 

Generally there are certain variables whose values are critical to 
the running of a program. Monitoring such variables during 
execution can be helpful in understanding and controlling the 
program's behavior. Active values provide an easy way to do this 
monitoring: to each critical variable, an active value is attached. 
Each active value prints its variable's value or updates a display 
each time the vaiue is changed. 

LOOPS provides Gauges, a large selection of display classes 
which facilitate this technique. Gauges are explained in Chapter 
10. In this section you learn how to do monitoring by using 
active values directly. The value of the Bal ance variable in the 
GenericAccount class is made active so that it prints itself in 
the prompt window whenever it is changed. 

Step one chose an active value class. A class is needed to keep 
track of the actual value and take some action whenever it is 
changed. For this purpose, LOOPS provides the 
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Local StateAct i veValue class. This is the most versatile of 
the active values classes LocalStateActi veValue contains 
an instance variable called local State. The variable's actual 
value resides in Local State LocalStateActi veValue also 
has methods for reading and setting this value. They are called 
GetWrappedVal ue and PutWrappedVal ue 

Step two specialize the active value class. As is, 
LocalStateActi veValue has no real effect; it simply sets or 
returns its local State. In this example, 

LocalStateActiveValue is specialized to create an active 
value that prints the value whenever it is set. 

Create a specialization of LocalStateActiveValue called 
PrintValueAV 

Whenever an attempt is made to set a value that is active, the 
message PutWrappedVal ue is automatically sent to that active 
value instance. The message is called PutWrappedVal ue 
because the active value can be viewed as being wrapped 
around the real value. 

Now specialize PutWrappedVal ue. Bring up 

Pri ntValueAV s editing menu and select 
Special izeMethod from the submenu of Add( AddMethod ). 
Then select PutWrappedVal ue from the menu that pops up. 

Code to print the value needs to be added before the call to 
<-Super. Unlike the methods specialized in Chapter 8, 
PutWrappedVal ue is part of the LOOPS system. Nevertheless, 
methods provided by the LOOPS system can be specialized just as 
those created by the user. As long as you know what a method 
does, you can specialize it. 

Add a print statement like the one shown in Figure 9.2 before 
the *-Supe r and exit the editor. 



□Edit of function PrintValueAV .PutWrappi 



( M e t h o d ( ( P r i n t V a 1 u e A V P u t W r a p p e d V a 1 u e ) 
self c o n t a i n i n g 0 b . j v a r N a m e 
n e w V a "I u e p r o p N a rn e t y p e ) 
cm edited; 

"1 6- Nov- 56 1 7:1 9") 

( f * print newvalue and Replace the 
value wrapped in the active value) 

(PRINT (CONCAT "Your new " 

varName " is: " 
new Value ) 
PROMPTWINOOtf) 

OSuper 
s elf P u t W r a p p e d V a 1 u e 
c o n t a i n i n g 0 b . j v a r N a me n e w V a 1 u e 
prop Name type) ) 



Figure9.2. The method P r i n tVal ueAV . Pu tWrappedVa 1 ue 
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Step three create an instance of the active value class. Create an 
instance of PrintValueAV. Name it PrintValueAVl. If you 
were going to use PrintValueAV in a real application, you 
would probably need a number of different instances in order to 
make different values active at the same time. The 1 on the 
name of the instance antici pates this. 

Step four install the active value. If the GenericAccount 
instance MyGeneric is not currently in your environment, you 
should load it now or create it from the class, GenericAccount. 
Put PrintValueAVl into MyGeneric by typing: 

(«- ($ PrintValueAVl) AddAct iveVal ue ($ 
MyGeneric) 'Balance) 

This sends PrintValueAVl the message to AddAct i veVal ue 
to the Balance instance variable of MyGeneric. That is, 
PrintValueAVl installs itself as a wrapper on the value of 
Bal ance. 

To see if everything is working, send MyGeneric some Credi t 
and Oebi t messages. The resulting balance should be printed in 
the prompt window. 

Before going on, inspect MyGeneric. Instead of simply a 
number for the value of Balance, you should see something 
like: 

#.($AV PrintValueAV (PrintValueAVl &) 
(localState 800)) 

The $AV indicates that this is an active value. PrintValueAV 
indicates which active value class is being used and 
(PrintValueAVl &) indicates the particular instance. The & is 
used by the Interlisp-D inspector to indicate additional 
embedded list structure. Here the & represents the 
PrintValueAVl instance. Note that localState is actually 
embedded inside the PrintValueAVl instance. It appears in 
the Browser for convenience so you do not have to inspect 
Pri ntVa 1 ueAVl to see the value. 



9.3 Using Active Values to Guard Variables 

Often it is useful to restrict the values of variables. An active 
value can be used to restrict the value of a variable by taking 
some action whenever an attempt is made to set the variable to 
an improper value. The action might be to cause an error break, 
refuse to set the variable, or simply print a warning. For 
simplicity, we demonstrate the latter strategy. 

The goal here is tc create an active value that prints a warning if 
the balance in a NOW account goes below 100. 
PrintValueAVl is an active value class with a specialized 
PutWrappedVal ue method that prints the balance. This is used 
as a starting point to create a specialization of PrintValueAV 
called WarnValueAV. Once again the PutWrappedVal ue 
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method is specialized. This time the specialized version 
previously created is further specialized. As before, 
PutWrappedVal ue prints out the balance. In addition, it 
monitors the balance and prints a warning when necessary. 

Create a specialization of PrintValueAV and name it 
WarnValueAV Bring up WarnVal ueAV ' s editing menu and 
select Special izeMethod from the submenu of 
Add(AddMethod). Then select PutWrappedVal ue from the 
menu that pops up. Add: 

(if (LESSP newValue 100) then (CLRPROMPT) (PRINT 
(CONCAT "WARNING : " varName " is less then 100*) 
PROMPTWINDOW)) 

before the «-Supe r call as shown in in Figure 9.3. 



DEdit of function WarnValueAV .PutWrap 



(Method 

( ( W a r n V a 1 u e A V P u t W r a p p e d V a 1- u e ) 
self co n t a i n i n g 0 b i v a r N a m e n e w V a 1 u e 
prop Name t vpe ) f* edited: 

"17- NOV- 36 19: 45") 

,* * print new'v'alue and Replace the 
value wrapped in tne active value) 

(if (ILESSP newValue 
then (CLRPROMPT i 

(PRINT i CONCAT "WARNING : " 
varName 
" is less than 100" 
) 

PROMPTWINOOW) ) 

(*Super 

self P u t W r a p p e d V a 1 u e c o n t a i n i n g 0 b .] 
v a r N a m e n e w V a 1 u e p r o p N a m e t y p e ) ) 



Figure 9.3. The method Wa rnVa 1 ueAV . Pu tWrappedVa 1 ue 

Create an instance of "WarnValueAV and add it to MyNow by 
typing: 

(«- (<- ($ WarnValueAv) New) AddActi veValue ($ 
MyNow) 'Balance) 

This is a quick way to create and install a new instance of an 
active value. An instance of the WarnValueAV active value is 
created and the message AddActi veValue is sent to it in one 
expression. Note that the instance was not given a name. Unlike 
classes, instances are not required to have names. When an 
instance is immediately out into some other structure the name 
can be left cut. 

Try sending some Credit and Debit messages to MyNow. You 
should see a warning in the prompt window whenever the 
balance is below 100. 



ACTIVE VAL [ 'E^ AMD A t" 



^ic^j-cn PQOG3Aiyi\1 ! MG 



9 5 



USING ACTIVE VALUES TO GUARD VARIABLES 



Look at Figure 9.3. To recap how the messages are passed 
consider what happens when MyNow is sent the message Deb i t. 
First an attempt is made to set Balance. This causes the 
message PutWrappedVal ue to be sent to the instance "of 
WarnValueAV that is wrapped around the instance variable 
Balance. !f the balance is low, 

WarnValueAV. PutWrappedValue prints a warning. Using 
<-Super, the WarnVal ueAV. PutWrappedVal ue method then 
forwards the message to PrintValueAV 
PrintValueAV. PutWrappedValue prints the balance. Finally, 
the PutWrappedVal ue message is again forwarded with a 
<-Super and Local SlateActi veVal ue . PutWrappedVal ue 
actually sets local State. 



9.4 Using Active Values to Propagate Values 

Sometimes the value of a variable depends upon the values of 
other variables. Such a variable is referred to in mathematics as a 
dependent variable and those upon which it depends are called 
independent variables. The value of a dependent variable 
should change whenever any of the independent variables 
changes. In LOOPS, this relationship is implemented with an 
active value stored in the dependent variable. Any attempt to 
get the dependent variable's value results in the active value 
checking the independent variable(s) upon which the dependent 
variable is based. Of course, any attempt to directly set a 
dependent variable should be prohibited. 

To illustrate this technique, a class that computes Balance on 
demand from Credi tHi story and Oebi tHistory is created. 
An active vaiue in Balance adds up aii the credits and subtracts 
all the debits whenever Ba 1 ance is read. In addition, Bal ance 
is protected from being set directly. Clearly, this is not a 
particularly efficient way to keep track of an account balance. 
However, this is a viable way to handle a balance that is needed 
only infrequently. 

Use the NoUpdatePermi ttedAV class, one of the 
specializations of LocalStateActiveValue provided by the 
LOOPS system. NoUpdatePermi ttedAV has a specialization of 
the PutWrappedVal ue method that prevents local State 
from being changed. The method invoked when an attempt is 
made to read the value of local State is GetWrappedVal ue. 
A specialization of GetWrappedVal ue is needed to compute 
the value of bal ance instead of simply accessing it. 

To begin, specialize Gene ri cAccount and name the 
specialization CorapBal Account. This new class inherits 
Credit and Debit methods from Gene ri cAccount. New 
versions of these methods must be created. These new versions 
will be very similar to tne old ones, but they will not update 
balance. To save some work, you can copy both methods from 
GenericAccount to ConipBal Account. First, box 
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CompBalAccount. Next select Copy (CopyMethodTo) from 
GenericAccount's edit menu. When the menu of methods 
pops up, select Credit and Debit. Now edit both methods to 
remove the parts that update Balance and change the 
documentation appropriately. ConpBal Account's Credi t and 
Deb i t method should look like Figure 9.4 and Figure 9.5. 



□Edit of function CompBalAccount.Credit 



(Method 
( ( C o m p B a 1 A c c o u n t C r e d i t ) 

self C r e d i f A m o u n t ) r + * d it* d : 

"i 9- J an -87 15:3s") 

(* + Add-: (CreditAmount , date) to 
Cred itHi story i 

(>|d 

Credit-History 

( C 0 N S ( C 0 N S C r e d i t A rn o u n t (DATE ) 
( i| C r e d i t H i s t o r y ) ) ) ) 

f @ 6 a lance ) ) 



Figure 9.4. Version of C redi t that does not update Balance 



□Edit of function CompBalAccount .Debit 



(Method 
( ( CompBa 1 Account Debit) 
self Oeb it Amount) r* edited: 

"1 9- J an -87 1 5:33") 

(* * Adds fOebitAmount , date') to 
Deb itHi story) 

( r-ld 

Oeb itHi story 

(CONS (CONS DebitAmount (DATE) 
(@ Deb itHi story ) ) ) ) 

01 Balance)) 



Figure 9.5. Versior. of Deb i t tri^t does not update Balance 

Both methods still access Balance in order to return the new 
account balance but neither one updates it. 

Now, create a scecialization of the active value class, 
MoUpdatePernii tted Call it TotalBalAV The desired 
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behavior is to recompute Balance whenever it is read. To 
achieve this, the GetWrappedValue method is speciaiized. 
GetWrappedVal ue does not actually read a value in this case, so 
the *-Super will be replaced by the body of the method. This is 
shown in Figure 9.6. Note that the object argument to @ can not 
be left out. This is because self refers to the instance of the active 
value while containingObj refers to the instance which 
contains the active value. 



DEdit of functjpnTotaiBalAV.GetWrappedV 



( M e t h o d ( ( T o t a 1 B a 1 A V G e t W r a p p e d V a 1 u e ) 
self containingObj varName 
prop No me type) 

f * Sdited; 

"1 9- J an - 37 1 5;47" ;i 

(* * Compute this balance from credit and 
deDit h i 5to ri * - , \ 

(DIFFERENCE 
(for Credit I tern 

in (@ containingObj 

CreditHistory) 
sum ( C A R C reditlte rn ) ) 
(for Debit I tern 

in (0 containingObj 
Deb it-Hi story ) 
sum ( C A R 0 e b i 1 1 1 e m ) ) ) ) 



Figure 9.6. The method Total Bal AV . Ge tWrappedVal ue 

Now create an instance of CompBal Account named 
MyCompBal. Use Add Act i veVal ue to install an instance of the 
TotalBalAV active value: 

(<- (<- ($ TotalBalAV) Mew) AddAct i veVal ue ($ 
MyCompBal) 'Balance) 

Test this example by sending both Credit and Debit messages 
to see that the balance is returned correctly. Also attempt to 
directly set the value of Balance by typing something like the 
following: 

(<-§ ($ MyCompBal) Balance 40000000) 

NoUpdatePerrai ttedAV. PutWrappedVal ue responds to this 
with an error message. If you wanted something else to happen 
send a message to the police for instance -- you would 
specialize the MoUpdatePermi ttedAV. PutWrappedVal ue 
method. 
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9.5 Nesting Active Values 

At times, more than one action needs to be associated with an 
active value. Instead of creating a new active value class that 
combines the functions of several existing active values, the 
active values can be nested. This technique is only briefly 
introduced here. See the chapter ANNOTATED AND ACTIVE 
VALUES in The LOOPS Reference Manual for more information 

Active values are nested by installing them one after the other 
on the same value. The order in which they are nested is 
controlled by a property of active values called wrapping 
precedence. When AddActi veValue tries to install a new 
active value where an active value is already present, it sends the 
message Wrapp i ngP recedence to the active value that is being 
installed. In the simplest case, the message is sent to self (the 
active value) and either T or NIL is returned. T means wrap the 
new active value around the outermost active value(s) and MIL 
means put the new active value inside the innermost one. 

It is also possible to exert finer control by using numerical 
precedences. The method Wrapp i ngP recedence returns 100 
by default. In order to control the order of nesting, 
WrappingPrecedence must be specialized to return T, NIL (as 
in simple case described in the preceding paragraph) or an 
appropriate number. 

As an example, the value of Balance is once again guarded. 
This time Bal ance is wrapped with a PrintVal ueAV and with a 
new version of the warning active value. The active value that 
prints the warning will be a specialization of 
LocalStateActi veValue. Create it now using the name 
NestWarnValueAV. 

Two methods, PutWrappedVal ue and WrappingPrecedence, 
need to be specialized. PutWrappedVal ue checks the value 
and prints a warning if needed. This is exactly what 
WarnValueAV.PutWrappedvalue does, so just copy it. To do 
this, first box NestWarnValueAV. Next bring up 
WarnVal ueAV's editor menu and select 

Copy(CopyMethodTo). Finally, select PutWrappedVal ue 
from the menu that pops up. 

It would be best to have the warning message printed before the 
balance is printed. In order for this to happen, the warning 
active value should be the outermost one. This order can be 
guaranteed by giving it a wrapping precedence of T. Specialize 
NestWarnVal ueAV's WrappingPrecedence method so that it 
returns T and does nothing else. In other words, replace the 
<-Super call with T. If this were not done, NestWarnValueAV 
would run the WrappingPrecedence method it inherits from 
LocalStateActi va Value. 

LocalStateActi veValue .WrappingPrecedence returns 
the default precedence of 100. 

Now recall that MyGeneric already has an instance of 
PrintVal ueAV installed in it. An instance of 
NestWarnValueAV needs to be installed: 



ACTIVE VALUES AND ACCESS-OPIENTED P'OGWVV^G 



NESTING ACTIVE VALUES 



(«- (<- ($ NestWarnValueAV) New) AddAct i veVal ue ($ 
MyGeneric) 'Balance) 

Test the results as you have before by sending some c red i t and 
debit messages. Push the balance below 100 and note the 
order in which the messages are printed out. The outer active 
value is triggered first and prints its warning. It then passes the 
new value to the inner active value which prints the value. 

To see the effect on ( $ MyGeneric), inspect it. It appears that 
NestWarnVal ueAV is the sole value of Balance. Inspect this 
value by highlighting it with the left button. Then hold down 
the middle button and seiect Inspect. PrintValueAV, the 
inner active value of MyGeneric's Bal ance variable, appears. 



9.6 A Final Note On Active Values 

Active values are quite powerful, but they should be used very 
judiciously in LOOPS programs. 

The use of active values makes programs more difficult to follow 
and debug. This is because they tend to point all over the 
program and their pointers remain hidden from the outside. 
Active values should only be used if there is no other way to 
accomplish the same thing or if they greatly simplify the 
program. 
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